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DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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RRRRRRRR SSSSSSSS TTTTTTTTTT CCCCCCCC «ONN NN TTTTTTTTTT RRRARRRR LL 
RR RR SS TT cc NN NN TT RR RR LL 
RR RR SS TT cc NN TT RR RR LL 
RR RR SS TT cc NNNN NN TT RR RR LL 
RR RR SS TT cc NNNN NN TT RR RR LL 
RRRRRRRR SSSSSS TT cc NN WN NN TT RRRRRRRR LL 
RRRRRRRR SSSSSS TT cc NN WN NN TT RRRRRRRR LL 
RR RR $$ TT cc NN NNNN TT RR RR LL 
RR RR $$ TT cc N NNNN TT RR RR LL 
R RR $$ TT cc NN NN TT RR RR LL cove 
RR RR $$ TT cc NN NN TT RR RR LL eeee 
RR RR SSSSSSSS TT CCCCCCCC =NN NN TT RR RR LLLLLLELLLL cece 
RR RR SSSSSSSS TT CCCCCCCC ~=NN NN TT RR RR LLLLLLLLLL eeee 
LL HI! SSSSSSSS 
LL Hi! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
tL I] $$ 
LL I] $s 
LLLLLLLLLL HII] SSSSSSSS 
LLELLLLLLLL PRESS! SSSSSSSS 
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MODULE RSTCNTRL (IDENT = ‘V04-000") = 
BEGIN 
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'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'@ DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


} ER PERS 
t® TRANSFERRED. 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
:* AND SHOULD NOT 

t® CORPORATION. 
:* DIGITAL ASSUMES NO RESPONSIB 


TO CHANGE WITHOUT NOTICE 
BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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00 ! 
4 ! WRITTEN BY 
' : Bert Beander June, 1980. 
80 i MODULE FUNCTION 
00 : This module contains the routines which build and remove DEBUG's 
: Run-Time Symbol Table (RST). This includes the routines which 
‘ wae da 1g the RST when DEBUG is started up as well as the routines 
5 ‘ which build and remove (SET and CANCEL) a specific module's RST 
00 : during the debugging session. The routines which maintain the 
: DEBUG Scope List are also here. 
9 3 i MODIFIED BY 
40 0 ' Rich Title Nov, 1981 Fixed a bug in DBGSRST_SETSCOPE : 
41 1 ‘ SET SCOPE MOD1 sometimes failed if 
4 ¢ ‘ MOD1 is a module which is already 
re i : set. 
45 5 i Ping Sager Mar, 1982 Break original DBGSRST_SETSCOPE 
4 $ ! routine into two parts. One builds 
4 ' the scope List, the other sets up 
: 8 : the scope List. 
0 9 i Rich Title Mar, 1982 Added to RST_BUILD_ERROR_HANDLER 
1 ! some code that marks the module 
§ § ! as not being set, if an error occured 
i t : when trying to set it. 
5 35 ; Ping Sager Apr, 1982 Added DBGSGST_INIT. 
$ § i Ping Sager Apr, 1982 Insert TYPE RST into hash chain also 


RSTCNTRL 1b-se -1 75 AxX-11 Bliss-32 Pp 
you+000 ~3ep- 188s §8i78:5, — HokeuG Bac sastewtnc asse2 aoe 45 
3 ; } 
3 38 1! Vv. Holt Jul, 1982 Modified Lh cece x $e att t static 
3; &# 1! records. GS$RST T so that 
1! static records os coud tS the program 
; $¢ : : level SAT. 
3; & 1! Bert Beander Dec, 1982 Put in the fast initialization of the 
3 6 : } RST using the Debug Module Table (DMT). 
3 8 1! Rich Title Feb 1983 Added poeseens V2E ASS to aid in 
3 o8 : : analysis of hashing algorithms. 
3 $3 1! Rich Title Feb 1983 Added BUILD_TYPE z TABLE flag to suppress 
wee 1! unnecessary looet ne sirgue RST, and 
3 g ; } ‘ thus speed up SET MODULE in some cases. 
s/s! 1! Rich Title Feb 1983 Removed the CHECK_DUPLICATE routine 
. 1! which screened out dupl iget ® o Hiss 
—. # ,: RST entries =“ the R 
: 7 1! The was cost "9 us very oh. y 
3 re during the SET MODULE command. Now, 
: 1: this check is done A ng lookup 
3 $9 1! (see the EWEEK. DUPLICATE routes 
: 1 1! in RSTACCESS). 
3 HG 1! Rich Title Apr 1983 Increased size of Ag or table in order 
. & 1! to speed up — ae one: 
; 8684 1! Rich Title Apr 1983 Made chenges te SET oe6e to handle 
oc oe 1! SET SCOPE/MODU 
3 ' Rich Title Apr 1983 Added SET MODULE/ALLOCATE 
3 $ ; Ping Sager May 1983 Added shareable image support 
3 + : : Walter Carrell Oct 1983 Added support for continuation DST records 
3 3 ; : Walter Carrell Nov 1983 Added overloaded symbol support 
3 Be ' Brad Becker Nov 1983 Added code to hash in type spec. DSTs 
; 1 
3 3 : REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
; 99 1 FORWARD ROUTINE 
: 100 1 08G Horry HASH:  WNOVALUE, ' Dump out internet fen about hash chains 
3; 101 i DBGSGET_DST- NAME, ' Find the name geet g in a DST record 
3 3 § 1 peesest= tthe ! Build RST entries tor all global 
3 1 : sye bols in GST 
7 1 DBGSGST_TO_RST: NOVALUE, ' Create RST entr Ry: 39 @ globes | gyabet 
3; 105 3 1 DBGSHASA_FIND, ' Find a name in 
; H+ 1 SHASH"F IND. SETUP: NOVALUE, ! Set ue ce calls = DSGSHASH FIND ao 
 § 40 1 DBGSHASH” INSERT: NOV. ALY UE, ' Inser RST entry in the Hash Table 
3 Hs 41 1 DBGSRST_BUILD: NOVALUE ; ! Build the RST for one module 
. % ry 1 DBGSRST_BLDSCOPE_LIST, ' Build the scope fee 
3 119 45 1 SR OER ST CANNOD - ; CANCEL @ module in the RST 
3; 11 44 (1 443 ST_OST_LENGTH, ; posure the ‘'real"’ pst Length 
3 " ‘ e ‘rea °° nter 
11 45 1 GSRST_OST_PTR ' Re h t oat i 
Fy : in ze n 
11 $$ 1 DBGSRST" INIT: NOVA ; | tial DST and RST 
3 (116 47 1 DBGSRST_MOST_RECENT: NOVALUE; : Mark the Most Recently Used module 
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Return the next DST Siven, the one 


seas 8 module from RST 

Ae. ; > tty r T SCOPE 
Error handler for becShST Bt 8 ng et LIST 
Build RST entr bels 


es for Rty 
Copy a record congenen list to a tt 
Copy @ record variant list to RST 
Add entry to @ resera’ ¢e component List 
Get memory 4 the free memory peel 
Find @ sere fied module in the RST 
Find . oe A. enum type DST pointer 
Mov “ qe ee records 
Position 6st 


Read = Hodu le Table to initialize 
ST (for new images only) 

Seeee" Af for DBGSRST_BUILD 

Make qtebet symbols from all shared 
mage names in this execution 

Handler for above routine 

Make gieset symbols from all shared 
mage name i. execution 


for VMS 
Make a Static hadrons “Table entry 
Check whether a fete. tes is static 
Handler for STATIC_C 
Find DST size for Testapte Debugger 


i > 
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75 —— jen’: 
7 + hl ¢ ey xpand the free nenery 
f — sertve OST, find Che ‘of e 
' Return free r 
? gait “FROM. TYPESPEC, i Get the bit size for gh yh. spec 


Get a memory block sree the teep aenery pool 
i Given Descr, tind he size 


4d 
J 
1 
q 
1 Get @ memory . ock from memory 
J 
i Return ASCIC rem a language code 


backs aa Ancunce E-FROM_DESC, 
DBGENCIS AD 

SNEULINE: NOVALUE, 
DBCEN ATHDESC. TO_CS: NOVALUE. 
dB NOVALU 


Meu 


i] 
: 
° : output routin 
3 DBGSREL MEMORY NOVALUE, : Release @ block to "tree memory pool 
DBGSSCR INITIALIZE: NOVALUE : alize Screen Debuggin 
DBGSSET_ ! se he current language settin ng 
1 0BG$ VALUE, ! Initialize source Line thelast locks 
§ DBGSSTA_GETSY YMBOL : NOVALUE, ' Look up a symbol in t 
bBgaSTA- LOCK_SYMID: NOVALUE, oe a oa 7 Ma hs pee "Y che 6ST 
' Loo @ Global sym ° n the 
DBGSSTA SYMNAME: NOVALUE, ' Get the name string of, of a given symbol 
DBGSSTA aunt Ock SyMIDe LNOVALUE. : Unlock @ SYMID Locked in RST memory 
eritinete €-CODE, Returns the FCODE for the type spec 
{ 


SYSS$C ! Create Map Section system service 


SYSSDELTVA: ! Delete Virtual memory space 


! The perconsty SET Lenguage ¢o qoee 
DBGSGL_MOVED_DST Pst HEAD, ! The head of the Mov 
IBSSIGNAL 


DBGS$GL—L STGNAL ADDR, 


OP_ABDR i | 
DBGSGV"CONTROL 7 DaGE CONTROL _ FLAGS, | DEBUG control bits | 
DBGSRURFRAME : BLOCK ' The current user run frame 
DBGSGL_ TRANSFER OADDRESS. i Transfer address 


' Note = for FT1 we get fhe, shareable image List. trom ACSGL_IMAGE_LIST 
! which is obtained A} egetnet SYS.STB. F 
we get it from SYSS$GL_ IMLS PTR which comes tren” STARLET. 


SYSSGL_IMGLSTPTR : See SHARED_IMAGE_NAMES 
IACSGL-IMAGE_LIST: WEAK, ! See SHARED_ IMAGE NAMES 


SYSSGL_IAFLINK: WEAK REF VECTORC1); ! Pointer to pointer to start of Image 
: Activator Fixup Block List 
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DSTSBEGIN_ADDR: INITIAL(O), 
DSTSEND_ADDR: INITIAL(O), 
DSTSNEXT_ ADDR 

GS TSBEGIA ADDR: INITIAL(O), 


serpent ADDR, 


Virtual address where the DST begins 
Virtual address of last byte of OST 


Virtual address where the GST (Global 
Symbol Table) begins 


SREC_ COUNT: INITIAL(O), Number of records in the GST 
CRUSE ISTHEAD; REF LRUMSENTRY Pointer to the list head for the Least 
107 t7 a 00). Recently Used Module (LRUM) chain 
LRUMSMOST_RECENT: INITIAL(O), Pointer to the Module RST Entry of the 
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} DBGSGB._ LANGUAGE: BYTE, 
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Most Recently Used module 


-Sep-1 AX-11 Bliss<-32 v4.0-742 P 
beim 95:33:53 HoNauG. Bhcsastewtne asse2 oer 3 
Pointer rf a list of pointers to RST 
— os referenced by the current 


Flag get te to ta if seebatt-§ GETSYMBOL 
sc rom oH AST. aeyecore 
Address o “- first dule RS Entry 
on the RST a hain 
' Pointer to tempo rary RS Entry List 
SATSSTART_ADOR: INITIAL(OS, Address of first Static Address Table 
entry on Program SAT chain 
SCOPESLIST: REF SCOPESENTRY; Pointer to current Scope List | 


LITERAL 
GST 


<=z 


RSTSREF_LIST: REF vECTORE LONG] 
INITIAL(O), 


RSTSSET_SCOPE: INITIAL(FALSE), 
RSTSSTART_ADDR: INITIAL(O), 
RSTSTEMP_LIST: INITIAL(O) 


we 


1 
1 
' 
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TYPE = 1, pore t 4 is GST 
GST_RECORD_TYPE = 0, Type of T record 
MIN_MODS_IR = 6, 


be able to hold--in poten gp alt 
9 MIN TW 00S HRS a  ceeet mod- 
The size of, the RST iy Table 
(A prime number should be used). 


nimum number of modules the RST must | 
| 
| 


RSTSK_HASHTBLSIZE = 2503; 


DBGSHASH_INDEX, Hash index used to communicate between 
cout ase st yeni FIND SETUP and | 
Pointer to current RST entry - ~~. 
current hash chain--used ¢t 
municate between DBGSHASH. FIND 
and DBGSHASH $ 
RMS File Access Block TFAB) for the 
executable image file 
RMS Record Access Block (RAB) for the 
executable image file 
Keep track the module RST size of the image 
Keep track the end address of the module 
Pointer to RST entry for module being 
built--used to communicate with 
error handler. 
name’ * ° the previous RST entry in 
ate of Module RST entries 
The RET *uash Table--a vector of List 
heads for RST hash chains. 
Pointer to next available location in 
the current Type RST ag 8 block 
Saloase to the current Type RST Entry 
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DBGSHASH_RSTPTR: REF RSTSENTRY 
INITIAL(O), 


OOO NO VES WN "OOO NOUES WOO 


EXEFAB: SFAB(), 
EXERAB: $RAB(), 
IMAGE MODULE _RST_SIZE, 


IMAGE -MODULE~ END_ADDR, 
MOD_BEING_BUTLT,~ 
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PREV_RST_PTR: REF RSTSENTRY, 


RSTSHASH_ TABLE: 
vECTORC cRSTSK HA wt a 
TYPRSTLOC: REF VECTORE LONG 


TYPRSTPTR: REF RSTSENTRY; 


AAAI 


Se Se Ge Se Ge Ge Se Ge Se Ge Se Ge Ge Se Se Se Ge Se Ge Se Ge Se FHS Ge Se Ge Se Ge Ge Ge Se eS Sse Ge Se Se Se Ge Ge Ge Se Ge Se ee 


SOOSOSCOSOGOOSOSOSOSSSSOOooooooooooooooooooooooooooooo 


a ek kek ed et dd tt a a es a 8 2s Ss 9 ss dt 


Peres MONOID — 
DREN AH OSSIOUE UNH OOO NONE UNS OORNOME UNIO 


| 


WAIW 


° 
e 
. 
e 
° 
e 
. 
= 
e 
7 
9 
° 
ca 
7 
e 
. 
o 
7 
e 
° 
a 
o 
oe 
@ 
. 
e 
© 
o 
° 
av 
8 
& 
. 
a 
> 
o 
> 
& 
. 
e 
2 
° 
. 
e 
7 
6 
© 
e 
. 
o 
. 
e 
° 
* 
. 
a 
oe 
° 
e 
° 
o 
. 
2 
© 
@ 
a 
o 
oe 
© 
° 
° 
e 
” 
° 
. 
e 
7 
e 
7 
o 
o 
e 
© 
@ 
3 
e 
e 
* 
o 
. 
o 
© 
2 
. 
e 
. 
a 
. 
° 
. 
” 
° 
a 
. 
e 
. 
. 
. 
2 


6-Sep-1 5 AX-11 Bliss-32 v4 
16-se0-1984 95:33:5, | Habe Shetestentn 
GLOBAL ROUTINE DBGSANALYZE_HASH: NOVALUE = 


' FUNCTION 
' Dumps information about the Length of the hash chains. This 
information is useful in pretye ng how good our noes algorithm is. 
This routine should probably be commented out in the version of 
the cebupger that we ship since it is only used to aid our 

own development. 
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i INPUTS 
The entire RST is scanned. 


i OUTPUTS 
: The Length of each hash chain is displayed at the terminal. 


INCR 1 FROM 0 TO RSTSK_HASHTBLSIZE-1 DO 
BEGIN 


Wwr—C oOo 


0o0O 


= POPPI WINING UROPOPONPUNNNY 2 2 
. . . 


on 


94 
95 LOCAL 
39 cane” 
9 NAM 
38 NEW ASTPTR: REF RSTSENTRY, 
RSTPTR: REF RSTSENTR 
00 DaGSPRINT CUPLIT BYTE CRASCIC "Hash chain !UL:"), .1 ): 
01 DBGSNEWL 
: RSTPTR = *RSTENAS HTABLEL2« 
? 05 NEW RST Tks RSTPT ACRES L “alg _FLINK); 
= 
7% 05 WHILE .NEW_RSTPTR NEQ .RSTPTR DO 
75 06 BEGIN ~ 
26 0 COUNT = .COUNT ¢ 
7 08 DBGSSTA_SYMNAME ( (wey LRSTPTRCRSTSL_HASH_BLINK], NAME ); 
78 09 DBGSPRIAT( .NAME ); 
79 10 DBGSNEWL INE); 
80 1 NEW. RSTP R = .NEW_RSTPTRCRSTSL_HASH_FLINK]; 
B ig DBGSPRINT(UPLIT BYTE(ZASCIC * ‘UL entries."), .COUNT); 
38 14 DBGSNEWL INE (); 
84 15 END; 
.TITLE RSTCNTR 
“IDENT \V04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4C 55 21 20 6€ 69 61 68 63 20 68 73 61 48 o008" P.AAA: ASCII] <15>\Hash chain !UL:\ : 
2 73 65 69 72 74 6E 65 20 4C 55 21 09 OD 00010 P.AAB: ASCII <13><9>\!UL entries.\ : 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000 DBGSHASH oe 4 
00000000 00004 DBGSHASH_RSTPTR: 


93 60008 EXEFAB: ‘ev : 


YTE 0 3 
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N . 
16-Sep 4 741 
14-Sep- 71982 96: 33: :26 
A ~ WORD 
3 LONG 
-LONG 
14 LONG 
18 LONG 
1¢ WORD 
1E BYTE 
1F BYTE 
0 «LONG 
4 BYTE 
5 BYTE 
$ -BYTE 
BYTE 
8 «LONG 
f LONG 
LONG 
LONG 
0 LONG 
C BYTE 
D -BYTE 
00 3 WORD 
004 LONG 
0044 » WORD 
004 BYTE 
004 -BYT 0 
0048 LONG 8 
004 » LONG 
005 -WORD 0 
005 BYTE 0 
005 -BYTE 8 
0054 . LONG 
O08 EXERAB: .BYTE 1 
005 BYTE 68 
OOSA ~ WORD 0 
005C - LONG 
060 -LO 
bea LONG 
68 -WOR (3) 
OOF «WORD 0 
0 - LONG 
Bate » WORD 
6 BYTE 
007 -BYTE 
78 -WORD 
7A - WORD 
LONG 
LONG 
LONG 
LONG 
C BYTE 
-BYTE 
-BYTE 
“PONG 
94 LONG 
98 LONG 
9C IMAGE MODULE _RST_SIZE: 
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DEBUG.S 


SaCSASTENTAL 


0-74 
*abese 


SS Se Re He Se Se Se Se Be Gs Se Se Se Se Se Se Se Se Se Ge Be Be Be Se Se Se Ss Ge Be Se Se Se Se Se Be Se Se Se Se Se Be Se Se Se Se Se Be Se Se Se Se Se Se Se Se 


| 


<z 


| a 
‘asrenee Cait avi) Lis BE v4. O-742, 
OOOAO IMAGE _mobutee os ADDR: 
000A4 MOD “peINe BUILT: 
OOOAB PREV_ RST_ "BTR. 
QOOOAC RSTSHASH Bite 
O4EES TYPRSTLOC: 


-BL 
OGEES TYPRSTPTR: 
-BLKB 4 


-PSECT DBGSGLOBAL,NOEXE, PIC,2 
00000000 00000 DSTSBEGIN_ADDR:: 


20024 


ONG 0 
00000000 00004 DSTSEND ADDR: ‘ 
00008 DSTSNEXT “ee ‘ 
00000000 0000c G GSTSBEGIN ADDR: : . 
00010 GSTSNEXT_ADDR: : 
-BLKB 4 
00000000 00014 GSTSREC_COUNT::: ‘ 
00000000 00018 LRUMSLISTHEAD: : ‘ 
00000000 0001¢ LRUMSMOST RECENT: : 
00000000 00020 RSTSREF Lists: s 
00000000 00024 RSTSSET ~SCOPE:: : 
00000000 00028 RSTSSTART ADDR:: 
00000000 0002¢ RSTSTEMP_LIST:: ‘ 
00000000 00030 SATSSTART_ADDR:: 
.CONG 0 
00034 SCOPESLIST:: 
-BLKB 4 
.EXTRN DBGSEXPAND_MEMORY 
“EXTRN DBGSFIND_SEPTYP 
“EXTRN DBGSFREE MEM LEFT 
-EXTRN DBGSGET_BITSIZE_FROM_TYPESPEC 
sEXTRN DBGSGET-MEMORY, DBGSGET TEMPMEM 
SEXTRN DBGSGET-BITSIZE_ FROM DESC 
-EXTRN DBGSLANGUAGE, DBGSNCTS ADD 
*EXTRN DBGSNEUL INE CENPATADE Se TO_CS 
“EXTRN DBGSPRINT, 6BG REL MORY 
-EXTRN DBGSSCR_INITIALI 6 
SEXTRN DBGSSET“LANG, DBGSSRC_INIT 
-EXTRN DBGSSTA~GETSYMBOL 


Fd 


<@D 


50 


000000006 


; Routine Size: 107 bytes, 


WISIN O 
WENO 


uw 
= 


00 
, 


6 


iH 000009¢6 


Routine Base: 
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00000000 EF 
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GLOBAL ROUTINE DBGSGET_DST_NAME(DSTPTR) = 


FUNCTION 
This routine accepts a pointer to a DST entry and returns the address of 
the counted gerne that contains the name of that DST symbol. If there 
is no name field in the specified DST entry, an error is signalled. 


i 
i 
i 
i 
i 
! INPUTS 

; DSTPTR = A pointer to the Debug Symbol Table entry whose name field is 
: to be located. 

i OUTPUTS 

i 


The address of the counted string containing the symbol name is returned 
as DBGSGET_DST_NAME's value. 


BEGIN 


DSTPTR: REF DSTSRECORD; ! Pointer to the input DST record 


FRRLLRLERE 


LOC 


oO 
r~ 


AL 
BPTR: REF DSTSBLI_TRAILER1; ! Pointer to Bliss special cases DST 
? : record's first trailer 


: Use the DST record type as a CASE index. for each type of DST record, 
: we then locate the corresponding name field. 


4 CASE. DSTPTRCDSTSB_TYPE] FROM 0 TO 255 OF 


See 
w 


} Handle all the DST record types of the ‘'standard’’ format. 


COSCSK_DTYPE_LOWEST TO DSCS$K_DTYPE HIGHEST, 
DSTSK-SEPTYP, DST$K_BOOL, DST$K_RECBEG 
DSTSK-VARBEG, DSTSK-ENUMELT, DSTSK_ENTRY 
DSTSK"LABEL, DSTSK_CBLORLIT. DSTSK~BLIFLO, 
DST$K~COB_HACK): 

RETURN” DSTPTRCDSTSB_NAME); 


Handle the Module-Begin record. 


{DST$K_MODBEG): 
RETURN DSTPTRCDST$B_MODBEG_NAME); 
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Handle the Routine-Begin record. 


{DS1$K_RTNBEG): 
RETURN DSTPTRCDST$B_RTNBEG_NAME J; 
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! Handle the Lexical Block-Begin record. 
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tostsx BLKBEG): 
RETURN DSTPTRCDSTS$B -BLKBEG_NAME); 
} Handle the PSECT record. 


{DST$K_PSECT): 
RETURN DSTPTRCDSTS$B_PSECT_NAME); 


o 
Handle the Bliss Special Cases record. 
COSTSx BUI): © 
BPTR = DSTPTRCDSTSA_BLI tneye + ,DSTPTRCDST$B_BLI_LNGI; 
ecrunn BPTRCDST$B_BCI_ 


} Handle the Enumeration Type Begin record. 
CDSTSK_ENUMBEG): 

RETURN DSTPTRCDSTS$B _ENUMBEG_NAME J; 
Handle the Type Specification DST record. 
{OSTSK_TYPSPEC): 

RETURN DSTPTRIDSTS$B_ TYPSPEC_NAME J; 

} Handle the Overloaded Symbol DST record. 
tostsx OVERLOAD): 

RETURN DSTPTRCDSTSB _OL_NAME); 
! Handle all DST records which do not have symbol name fields by signal- 
H lin an internal coding error. 

$DBG_ERROR(* RSTCNTRL\GET_DST_NAME 10°); 
TES; 


: We should never get here--if we do, signal an internal coding error. 


$DBG_ERROR(*RSTCNTRL\GET_DST_NAME 20'); 
RETURN 0; 
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GLOBAL ROUTINE DBGSGST_INITCIMGFILCHAN, BASEADDR, MODRSTPTR): = 

{| FUNCTION, 


RSTCNTRL 
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Thi Maske to. built Ast reads in the Global Symbols and calls 
DBG GST 6 RS build & inte for each Global Symbol at RST 
intialiZatTon time Yn DBGSRST_INIT. 


tile fst this do. andt is pealled. the location of the na in bio? image 
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the GST record, and moves through the buffer, aottin the buffer 
ddress of each global symbol entry as it is seen. When the buffer 
s exhausted, this routine reads in the next GST record. It halts at 
end of file and returns a value of zero to the caller. 
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: The format of one of these concatenated records is a single 
' pond ins a tet ———. the ee 1, indicating that the record is 

! indeed record. Each entry in "the record has a fixed number of 
‘ overhead types vot lquee by a sympot name that is a variable number 

: bytes. The entries we “" nterested in processing are the 

4 global — definitions and entry point symbol ¥ 7 bec ous i y+} tae 
‘ roe other defined type, PSECT definition, is noted only because it must 
: be successfully passed over. The detailed format of the GST is defined 
} in DBGLIB. 
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i soph IMGF ILCHAN - The channel number that the image is opened on. 
BASEADDR - Base address of the shareable image. (it may be zero). 
4 MODRSTPTR - Module RST pointer which contains all global symbols. 
i OUTPUT 
; RST entries for all Global Symbols are built. 
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BEGIN 


MAP 
MODRSTPTR: REF RSTSENTRY; Pointer to anonymous module RST entry 


or shareable image module RST 
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LOCAL 
EE-LUNSSBES et GLES onan 
EXE_SECBOUNDS: VECTORC2,LONG), 
EXE_SECNAM_DESC: VECTORC2,LONG), 
GSTADDR: REF VECTORC,WORD), 


GSTPTR: REF BLOCKC BYTE), 
IMG_DST_BLOCK: REF IHS ENTRY, 


IMG_HEADER: a BLOCKC BYTE), 
NUMTARGS: BYTE, 
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you+000 12-808-1388 93:73:58 {peBUG. SAC RSTCNTRL.B32;2 " 3) 
453 § SATPTR: REF SATSENTRY, ! Pointer to Program Statci address table 
454 STATUS: BLOCK(1,LONG); 
18% 5 
2 3 : Initialize some pointers in OWN or GLOBAL memory to zeroes. 
& $ 8 i In v4 system, we can get the module end address from shareable image descriptor block. 
460 ! So, we don’t have to quess what is the end address for the module. 
461 ! Note: Global symbols do not have static address table, this info. is needed for 
rh 4 : shareable image module static address table only. 
464 38 IMAGE _MODULE_END_ADDR = 0; 
465 iy IMAGE MODUL ee ee = 0; 
ree 595 GSTSBEGIN_ADBR ="0; 
46 238 GSTSREC_COUNT = 0; 
re 39 
470 299 ! Set the preager to image header by using SCRMPSC to map in the Ist 
of rein : virtual block. 
47 EXE_HDRBOUNDS[0) = 200: 
474 08 EXE-HDRBOUNDS(1) = 7295. 
475 604 EXE_SECNAM_DESC 9 = 6; 
47 05 EXE-SECNAM-DESCL1] = UPLIT BYTE(ZASCIC 'HEADER'); 
STATUS = SYS aint titty tt EXE_HDRBOUNDS, 0, SECSM_EXPREG, 
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NAM _ DESC, 0, 0, 
-IMGFILCHAR, 1, 0, 0, 0); 


oe 

~~ 

CO 
SaUe 


If NOT .STATUS 
THEN 


1 
48¢ 61 BEGIN 
4 061 IMG_HEADER = 0; 
484 1 STATUSCSTS$V_SEVERITY] = SYSSK_INFO; 
485 061 SIGNAL (.STATOS); 
4 1 RETURN FALSE; 
4 61 END 
4 61 
61 
61 


489 LSE 

rhs IMG_HEADER = .EXE_HDRBOUNDS(O); 

49 

49 Start by doing some consistency checks to ensure that the image header 

& pointer is non-zero and that the debug symbol-table offset in the header 
495 is non-zero. If either is wrong, signal an error and give up. 


IMG_HEADER EQL 0 


BEGIN 
SIGNAL (DBG$_NORSTBLD); 
BE TURN FALSE; 


IF .IMG_HEADERCIHDSW_SYMDBGOFF) EQL 0 


THEN 
BEGIN 

SIGNAL (DBG$_NORSTBLD); 

oe rune FALSE; 
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! We have a debug symbol table descriptor in the image header. If no DST 
' exists (because all the modules were compiled without sreeuy or /TRACE) 
! we indicate — by wonede the DST address zeroed. Otherwise we set the 
! DST address to 1 temporarily 


! 
' 
' 
' 
‘ 
IMG_DST_BLOCK = .IMG_HEADER + .IMG_HEADERCIHDSW_SYMDBGOFF I; 


tt  _  _ s 


—OVONOVUS WN ODO ONOULSWNO 


! First we want to map in the Global Symbol Table (GST) the same way. First 
' we make sure there is a GST--there must be at least four GST records (an 
s snage header, a sub-header, and an end-of-module record plus one data rec- 
' ord). If there is no GST, we leave the GST start address zeroed; other- 
wise we set it to 1 for now. 
1 


if - IMG_DST_BLOCKCIHSSW_GSTRECS) GEQ 4 THEN GSTSBEGIN_ADDR = 1; 

! If the GST's Virtual Block Number (VBN) is invalid, we simply pretend that 
there is no GST, though this is actually an error in the image header. 

if - IMG_DST_BLOCKCIHSSL_GSTVBN] LEQ 2 THEN GSTSBEGIN_ADDR = 0; 


We decided that there is a GST, so we create another map section 
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] 
! which maps the GST into our virtual address space. Again, if this fails, 
! we print the status message with informational severi H and set the GST 
38 066 ' address to zero. If this succeeds, we make the GST pointer point to the 
39 0668 ! first data record in the GST--we skip over the header and sub-header here. 
re } We also set the GST record count minus the header and trailer records. 
rs IF .GSTSBEGIN_ADDR NEQ 0 
4 THEN 
44 BEG! 
45 EXE_SECBOUNDS(0) = 200; 
46 EXE~SECBOUNDS(1) = 1°30; 
47 EXE_SECNAM_DESC 9 = 3; 
48 EXE~SECNAMDESCL1) = UPLIT BYTE(ZASCIC ‘GST"); 
49 STATUS = SYSSCRMPSC(EXE SECBOUNDS, EXE_SECBOUNDS, 0, SECSM_EXPREG, 
50 EXE_SECRAM_DESC, ° 
51 IMGFILCHAR -} 6ST’ BLOCKCINS$W_GSTRECS), 
3 -IMG_DST_BLOCKCINSSL_GSTVBNJ, 0, 0); 
H If NOT .STATUS 
4 THEN 
55 besis 
2$ GST cele ADDR = 0; 
§ STATUSLSTS$V_SEVERITY] = SYSSK_INFO; 
28 SIGNAL(.STATOS); 
5 ND 
60 
61 ELSE 
$¢ BEGIN 
6 GSTADDR = .EXE_SECBOUNDS[ }i 
64 GSTADOR = .GSTADDR ¢ § + ( ett eHet + 137atse 
65 GSTADDR = .GSTADDR + 2 + ((.GSTADDR ¢ 1)/2)* 
66 GSTSBEGIN_ADDR = .GSTADDR; 
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GSTSNEXT ADDR = .GSTSBEGIN ADDR 


BST SREC COUNT = .1MG_ “BCOCKLIWS$u_GSTRECS) © 3; 


END; 


Sa 


! If we have by now decided that there is no GST in the executable image, 
! we return FALSE to the caller so that the caller print a message saying 
: that there are no global symbols. 


if .GSTSBEGIN_ADDR EQL 0 THEN RETURN FALSE; 


! Set up the number of GST records to be read in. Pick up the address of 
the current record, and update the pointer to the subsequent one. 


GSTPTR = POSITION GST(FALSE); 
IF .GSTPTR EQL 0 THEN SIGNAL (DBGS_INVGSTREC); 
Go through GST, build RST entries. 
WHILE TRUE DO 
BEGIN 


BRANSLSSSLSALATSS 


Check to see if there are no more GST records. 
if .GSTPTR EQL 0 THEN EXITLOOP; 


PPP APAAAAAMMVIUIY? 


oo 
S228 
SNS NSN SSNS 


Be Se Se Oe Se Ge Be Se Se Ge Se Ss Be Se Se Se Se Se Se Se Se Ge Se Ge FH SH Se Se Se Se Ge Ge Se Se Ge Se Se Se Se Se Se Ge FH Se Se Se Ge Se Ge Se Se Se Se Sees See 
oo SNS NN NIN SIO Oo 
BRUNO S Ry 
6 SSSLSASAAVSSSSssssss we] 
w SES°S33 
BBP BBB BB PB BB BB IEF MMA NAMM AAI AIIRIPPIPPPIPIPIPYPIPIPMPIPIPIPIPININI NE © 


! See whether the current buffer address is beyond the end of the 

! end of the last GST record we looked at. Note that we rounded up 

! GSTSNEST_ADDR when calculating where the next GST record will begin. 
! Therefore we must temporarily round it down again when comparing it 
! with GSTPTR since it may point to the last unused byte in a GST 
record. 

| 


F (.GSTPTR GEQA .GSTSNEXT_ADDR = 1) 
THEN 
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SeSeSess 


BEGIN 
= = POSITION_GST(TRUE)) EQL 0) 


=O ODN NEW 9 OD NO VE WN (“OOO NAUE WN -OOENOwu 


oe 


There are no more GST records. 
EXITLOOP 
ELSE 


SSN 


ET succeeded. If the new record is a GST record, then 
nitialize the valiable ey to point to the first global 
symbol definition block in this record. 


VEGI ASI SS 
ROR RI Ree te 
WN =O OOO UF who 0 O® 
SOOCOOOOOOOOoOoOoOoOO 
SNNNN™N 
ar I 


Is EAE a ASIEN ae EON SEN Oe Acree AAO CSN UNO Sac = Shee 


| 
| 
} 
| 
| 
| 
| 
| 
| 


[ 


o 
z 
a 
z@D 
r 


Se 


DAMM 


APAAAAAAA 
OOnNOUS wr 


egegeesees 


OOO NEW O00 


PAOOAASOAOAAOOO 
p> ee PN 


9 
1b-sep-19 4 02:53:41 AX-11 Bliss-32 v4.0-742 Page 22 
a et 7 95:33:53 DEBUG. SRC IRSTCNTRi 83222 . (85 
753 BEGIN 
7546 LOCAL 
f 5 BUFFER_ADDRESS: REF VECTORC,BYTE); 
7 § BUFFER_ADDRESS = soerete 
f § IF -BUFFER_ADDRESSCGST_RECORD_TYPE] EQL GST_TYPE 
760 GSTPTR = .GSTPTR + 1 
761 ELSE 
re 
ree This record is not a GST record. Go on to the next. 
766 GSTPTR = ZX'FFFFFFFF’; 
76 
768 4 END; 
0769 4 
0770 4 END 
0771 4 
14h 4 
0773 4 ! This is a global symbol. Save its address. Then update the 
0774 4 ! GSTPTR to point to the next symbol. 
0775 4 ' 
p77e 3 
0777 4 N 
O75 2 Do a CASE on the GST record type and handle each type separately. 
ore! ¢ CASE... GSTPTREGSDSB_RECTYP) FROM GSDSC_PSC TO GSDSC_SPSC OF 
art + 
Ore 2 DEBUG does not handle PSECT, just update the address. 
ares é CGspsc PSC): 
0788 5 GSTPTR = .GSTPTR + GPSSC_NAME + .GSTPTRIGPSS$B_NAMLNG); 
0789 4 END; 
are 
792 4 ! Handle the definition of a global symbol. If this is the symbol 
878 4 ! we are looking for, build an RST entry for it and return a pointer 
Boe ? to that RST entry. Otherwise, continue the search. 
079 4 CGsps¢ sym): 
a ; DBGSGST_TO_RST(.MODRSTPTR, GSTPTRCESDFSB_NAMLNG),.GSTPTRCSDFSL_VALUE] * .BASEADDR ,FALSE) 
7 GSTPTR = .GSTPTR + SDFSC_NAME + .GSTPTRESDFSB_NAMLNG); 
800 4 END; 
yf 
08 & ! Handle the definition of a global routine or a global entry point. 
be 4 ‘ A this is the symbol we are looking for, build an RST entry for 
5 ? t and return the entry's address. Otherwise continue the search. 
8 4 CGSDSC_EPM 
8 4 GSD$C~PROS 
5 BEGIN 
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Keep track of the end address. This is not needed for V4 system. 
if (.GSTPTRCPROSL_ADDRS] + .BASEADDR) GTR « IMAGE MODULE _END_ADDR 

IMAGE MODULE _END_ADDR = .GSTPTRCPROSL_ADDRS] + .BASEADDR; 
DBGSGST_TO_RST(.MODRSTPTR, GSTPTRIPROSB_NAMLNG],.GSTPTRCIPROSL ADDRS] + -BASEADDR, TRUE); 
CASE .GSTPTRIGSDSB_RECTYP) FROM GSD$C_EPM TO : 

GSDSC_PRO OF 
SET 
CGSD$C_EPM): 


N 
Age = .GSTPTR + EPMSC_NAME + .GSTPTRCEPM$B8_NAMLNG); 


CGSDSC PROJ: 
GSTPTR = .GSTPTR + PROSC_NAME + ,GSTPTRIPROSB_NAMLNG); 
NUM_ARGS = .GSTPTRCFMLSB-MAXARGS); 

GSTPTR = .GSTPTR + FMLS$C SIZE 
DECR 1 FROM -NUM_ARGS-1 TO 0 BY 1 DO 


E 
GSTPTR = .GSTPTR + -GSTPTRCARG$B_BYTECNT) + 
ARGSC E; 


END; 
TES; 
END; 
CGSD$C_SPSC): 


DBGSGST_TO_RST(.MODRSTPTR, GSTPTRESGPS$B_NAMLNG), .GSTPTRISGPS$L_BASE) + .BASEADDR, TRUE); | 
GSTPTR = .GSTPTR + SGPSSC_NAME + .GSTPTRESGPS$8_NAMLNG); 


We signal error for all other kinds. There are other 
kinds of gst records, but we do not encounter them 
so far, if you do encounter them, see Linker man. 
(App. A) and Starlet.req. 
INRANGE, OUTRANGE): 
SIGNAL (DBG$_INVGSTTYP); 
EXITLOOP; 
END; 
TES; 


END; ! End of ELSE a global symbol. 
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; 


fei wai asad LIN 
END; ! End of WHILE loop over the GST. 


Release the Virtual address space occupied by Image header. 
UU 's = Ht + tats -HDRBOUNDS, EXE_HDRBOUNDS, 0); 


BEGIN 
STATUSCSTSSV_SEVERITY] = SYSSK_INFO; 
SIGNAL .STATOS) ; 


: Release the Virtual address space occupied by GST. 
es “ime eee SECBOUNDS, EXE_SECBOUNDS, 0); 
THEN 
BEGIN 
STATUSCSTSS$SV_SEVERITY] = SYSSK_INFO; 
SIGNAL(.STATOS); 


Record the module size in the module RST. 
MODRSTPTRCRSTSL_MODRSTS1Z) = .IMAGE_MODULE_RST_SIZE * 4; 

! Fill in the y rege size in the program static address table. 
Needed only for V5 system. 

— -DBGSGV_CONTROLCDBG$V_CONTROL_VERSION_4) 


BEGIN 
NO genet NEQ .RSTSSTART_ADDR 


BEGIN 
aig gt . . SATSSTART_ADDR; 
WHILE TRUE DO 
BEGIN 
IF .SATPTR EQL OT yp OOP ; 
IF_ .SATPTRCSATSL RSI PTR J] EQL .MODRSTPTR 
on 
SATPTRCESATSL_END] = .IMAGE_MODULE_END_ADDR; 
EXITLOOP; 


— = .SATPTRCSATSL_FLINK); 


END; 
END; 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


soso 1 SS OE URRY EAM: ASHT pte : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


07FC 00000 .ENTRY DBGSGST_INIT, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0525. ; 

A 00Ov CF 9E 000 MOVAB DBGSGST_TO_RST, R10 : | F 

9 ey 69 9E tated MOVAB SYSSDELTVA; RO : ; 

: 9 0G 9— 000 MOVAB SYSSCRMPSC, RB : F 

0’ EF 9€ 0001 MOVAB IMA E MODULE ago ADDR, R? : | : 

3 444 0 9 1 MOVAB LIBSSTGNAL 3 3 
0000000' EF 9 MOV Q TSBEGIN, A at. RS ; : 

E 6 ¢ A SUBL : ; 

FC OA? D CLRO ThA Heme Awe fst. SIZE + 0594 | : 

65 04 CLRL = GST FGI : 0595 | ; 

OC AE 4 RF "1 0 AOVIBL § #300, aE OUNDS : 0603 ; 
10 AE 40000000 er 44 9 A MOVE Haba rE jRD EXE_HDRBOUNDS +4 : 2606 : 
04 AE 00000000° i E 0 ¢ MOVAB P.AAE, EXE_SECNAM_DESC+4 + 0605. ; 
F 7¢ ¢ CLRQ. = = SP) 3 0606 | ; 

7E 01 7 0004 MOVa #1, =(SP) : : 

04 AC DD 00 3 PUSHL IMGFILCHAN + 0608 | F 

1c AE OF 0086 SUSHAB EXE. SECNAM, DESC ; Se) : 

00020006 8F oD 25 PUSHL 187855 se : ; 

E 04 0005F CLRL. se : ; 

38 AE OF 1 PUSHAB EXE -HDRBOUNDS : | : 

C AE OOF PUSHAB RBOUNDS ; ; 

68 F 67 CALLS oY SSERAPSC ; : 

5 i) 6A MOVL “STAT § 3 

0B E BLBS ny. 3 0609 | : 

D4 CLRL —s: IMG NC_HEADE : 1 : 

03 00 FO 0007 INSV #3, 780, a. STATUS : 0613 | : 
° a PUSHL TATUS + 0614 | : 

52 10 AE 7B 1$: MOVL XE_HDRBOUNDS, IMG_HEADER ; 19, : 

0 7F BEQL : $9 $ 

04 a2 8 1 1ST (IMG_HEADER) : | : 

0002834A &8F ODD 33: PUSHL #164682 3 0636. : 

Fe C 3$: CALLS a“ LIBSSIGNAL F ; 

02 : F BRW > 0637. ; 

: 04 =A 4$: MOVZWL iting HEADER), > 0646 : 

50 C ADDL2 IAG_DST Broce : | ; 

4 OA A : CMP 19tunG _BST_GLOCK), : 0655 : 

03 1F 0009D BLSSU : F 


iSeseoctome 0g:58s4) yaaet et tngc Be v4. 0-742, Page 36 


<z 


oun 


01 »D f MOVL #1, GSTSBEGIN_ADDR : : 
§3 06 =A D1 y S$: cn eine 0st BLOCK), #2 ; 0661 3 
4 D4 CLRL © GSTSBEGIN_ADOR : ; 
$3 03 DOOAA 6$ iste ‘ TSBEGIN-ADDR + 0671 ; 
8 AE F 9A OOOA MOVZBL #@ KE_SEC $ + 0674 | ; 
ge AE 40000080 F 00 MOVL «@ BO gre those EXE SECBOUNDS+4 t 0675. ; 
6E 3 AB MOVL #3, EXE SECNAM_DESC 3 0676) 3 
04 AE 00000000" GF 9e 0008 MOV P.AAF, EXE_SECNAM_DESC+4 > 0677. ; 
€ 000¢ CLRQ = =< SP) : 0678 | F 
4 Ad 0d 000C PUSHL 4 (IMG_DST_BLOCK) : 0681. ; 
7E A he 3¢ 000CB MOVZWL 10(IMG_DST_BLOCK), -(SP) : ; 
AC 0D O00CF PUSHL IMGFILCHAN : ; 
7E 7C D2 CLRQ =(SP) : 0678 | : 
1¢ AE OF 00004 PUSHAB EXE SECNAM DESC ; ; 
00020000 af DD 00007 PUSHL #137 : | ; 
E 04 000DD CLRL. ss = (SP) : ; 
30 AE 9F OOODF PUSHAB €EXE_SECBOUNDS F ’ 
4 AE 9F OOOE PUSHAB EXE ~SECBOUNDS : | ; 
68 F £ CALLS #12, SYSSCRMPSC : : 
D E VL —_ RO TATUS : ; 
0€ E Oe BLBS STATUS, 7$ ; 0682 ; 
D4 O00E CLRL GSTSBEGIN ADDR ; | ; 
03 00 FO F INSV #3, #0, #3, STATUS : 
DD OOF PUSHL STAT ; 0687 
66 1 FB OOOF CALLS #1, LIBSSIGNAL ; 
€ 11 OOOFA BRB 8b : 0682. 
51 08 A p0 OFC 7$: MOVL EXE SECBOUNDS, GSTADDR : 069 
0 é C 001 MOVZWL (GSTADDR), R : 0693 | 
06 0010 INCL R : 
50 6 001 DIVL2 #2, RO : 
1 02 A140 3€ 001 MOVAW (Gs TADDR) ROI, GSTADOR ; 
50 gi € 001 MOVZWL (GSTADDR), R + 0694 
D6 0011 INCL R F | 
50 0 cé 11 DIVL2 #2, RO : 
51 02 Al4 11 MOVAW  2(GSTADDR)CROJ, GSTADDR : | 
65 51 DO OO11A MOVL  GSTADDR, GSTSBEGIN ADDR > 0695 | 
06 AS 65 p 110 MOVL 6 TSBEGIN ADDR, GSTSNEXT_ADDR + 0696 | 
08 a3 OA A 121 MOVZ2WL 10(IMG_DST BLOCK), GSTSREC_COUNT : 0697 
A 03 ¢ 126 SUBL2 #3, GSTSREC_COUNT 3 
6 DS OO12A 8S: TSTL STSBEGIN_ADOR : 0707 
0187 $1 O015E onus 
re D4 001 j 9$: CLRL = =( SP) : 0713 
0000v cf i CALLS a, POSITION GST ; 
9 1 EO 108 : 0714 | 
0002835A 8F DD 001 PUSHL #164698 ; 
66 1 FB 0014 CALLS #1, LIBSSIGNAL F 
2 p 146 10$: STL GsfptR : 0725 
af 14 BEQL 5 : 
50 04 AS C3 O014A SUBL3 GSTSNEXT_ADDR, RO > 0735 
50 2 : 14F CMPL ; fPTR, R ; 
: F 001 é BLSSU $ : 
; DD 001 PUSHL @ : 0738 
0000v CF 1 FB 00156 CALLS #1, POSITION_GST ; 
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984 03:53:41 AX-11 BL igs-32 v4.0 
18:26 DEBUG. SRCIRSTCNTRL. 
MOVL Rg GSTPTR 
Bear 4=s«d15$ 
MOVL GSTPTR, BUFFER ADDRESS 
CMPB (BUFFER ADDRESS), : 
BNEQ so 
INCL : TPTR 
BRB $ 
MNEGL #1, GSTPTR 
BRB 10$ 
CASEB STP IR) #0, #12 
<WORD 16$-13$,- 

$-1 $.- 
$-13$.- 
$-13$.- 
4$-13$.- 
14$-13$.- 
14$-13$.- 
14$-13$.- 
14$-13$.- 
14$-13$.- 
14$-13$.- 
14$-13$.- 
27$-13$ 
PUSHL #167859 
CALLS #1, LIBSSIGNAL 
BRW a$ 
MOVZBL &(GSTPTR) RO 
MOVAB 9(RO)CGSTPTRI, GSTPTR 
BRB 10$ 
CLRL_ (SP) 
ADDL3 SEADDR, S(GSTPTR), (SP) 
PUSHAB 9(GSTPTRS 
SHL MODRSTPTR 
CALLS #4, DBGSGST_TO_RST 
MOVZBL 9(GSTPTR) 
ov 10<RO)CGSFPTRI. GSTPTR 
ADDL3 BASEADDR, S(GSTPTR), RO 
CMPL RO, IMAGE_MODULE_END_ADDR 
BLEG )3=s 2.18 
MOVL § RO, IMAGE_MODULE_END_ADDR 
PUSHL #1 
PUSHL RO 
PUSHAB 11(GSTPTR) 
PUSHL MODRSTPTR 
CALLS #4, DBGSGST_TO_RST 
CASEB (GSTPTR) « #2, 
° ORD ~$58-" 
movze. {1t6stPTA), R 
oy 1ZeRODEGSTOTRI, GSTPTR 
MOVZBL 1} <GstPrR» R 
V 120 YEGSTPTRI, GSTPTR 
VB 1(GSTPTR), NUM_ARGS 
ADDL2 #2, GSTPTR 
MOVZBL NUM_ARGS, 1 
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AX-11 Aigec? 
DEBUG. SRCIRST 


4.0-74 
ew tri Bsoe2 


BRB 6$ 
25$:  MOVZBL 1(GSTPTR) R0 
MOVAB 2(R UEGSTPTR , GSTPTR 
26$: SOBGEO 4 
BRB $s 
27$ PUSHL #1 
ADDL BASEADDR B(GSTPTR), =(SP) 
PUSH 2(GSTPTR) 
PUSHL MODRSTPTR 
CAL #4, DBGSGST_TO_RST 
MOVZBL 1 (gsteTR) 
MOV 13(RO)CGSTPTRI, GSTPTR 
BRB 19$ 
28$: CLRL =(SP) 
PUSHAB €EXE_HDRBOUNDS 
PUSHAB E EZHORB 
CALLS #3, SYSSDELTVA 
MOVL R STATUS 
BLBS status, $ 
INSV #3, #0. #3, STATUS 
PUSHL STATUS 
CALLS #1, LIBSSIGNAL 
298: CLRL -<(§P) 
PUSHAB EXE_SECBOUNDS 
PUSHAB XETSECBOUNDS 
CALLS 4&3, SYSSDELTVA 
MOVL RO, STAT 
BLBS status, $ 
INSV #3, #0. #3, STATUS 
PUSHL STATUS 
CALLS #1, LIBSSIGNAL 
30$: MOVL MOBRSTPTR. RO 
ASHL #2, IMAGE MODULE RST SIZE, 32(RO) 
BBS #4, DBG$GU_CONTROL+1> 33$ 
CPL RO, RSTSSTART_ADDR 
MOVL ATSSTART_ADDR, SATPTR 
318: BEQL 
cmPL (SATPTR), RO 
MOVL MAGE MODULE _END_ADDR, 8(SATPTR) 
32$: MOVL (SATPTR), SATPTR 
BRB 1$ 
33$: MOVL #1, RO 
RET 
34$: CLRL RO 
RET 
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GLOBAL ROUTINE DBGSGST_TO_RST(MODRSTPTR, NAMEPTR, VALUE, ROUTINE FLAG) :NOVALUE = 


i FUNCTION 
: This reyt ine accepts the characteristics of a global symbol as input 
ld a@ Run-Time Symbol Table (RST) entry for that symbol. 

The p*opel sysbet has elgg been looked up in the Global Symbol 


ye. nd routine rien 
entry. bd routine is then called fo convert that infor- 
mation to the corresponding RST pointer. A new RST 
entry is constructed, added to the anonymous module's symbol chain, 
and added to the RST Hash Table. In addition, a ‘dummy’ DST entry is 


has been extracted 
from the 


wn 


not have to make a special case of global symbols--these symbols seem 


created for the symbol so that other opal s table access routines do 
ke all others. The DST entry is 


to have perfectly normal DST entries | 
created in the same memory block as the RST entry. 


INPUTS 
MODRSTPTR = Module RST pointer. 


eo 
= 


RRR 


NAMEPTR = A pointer to the global symbol’s name, represented as a 
Counted ASCII string. 


VALUE = The value (i.e., address) of the global symbol. 
ROUTINE _FLAG - A flag set to TRUE if the petes symbol is a routine 


name. If Pnis flag is FALSE, the symbol is assumed to be 
a data symbol. 


VNU — 3 —s tOOOOOOOC 
REWN SO ODNOUNEWN SS OORNOU EWN OD NC 
2 
= 


SSSSSOD 


PPAAAAAMI 


OUTPUTS | 
None. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 ! 

BEGIN 
MAP 
MODRSTPTR: REF RSTSENTRY, ! Pointer to anonymous module RST entry 


oo 


oo000 


5 
eee 
5 


or s 
Pointer to Counted ASCII name of the | 


hareable image module 
NAMEPTR: REF VECTORC BYTE); 
global symbol 


LOCAL 
DSTPTR: REF DSTSRECORD, 


w 


NOUS WOO 


' Pointer to the dummy DST record we 

: uild for the global symbol 

' Length of the RST entry 

' Pointer to the RST entry we construct 
: for the global symbol 


LENGTH, 
RSTPTR: REF RSTSENTRY; 


! The global syabet is not yet in the RST. If it is a routine name, con- 
: struct a Routine RST Entry and a corresponding dummy DST record for it. 


if .ROUTINE_FLAG 
THEN 


1 


PAAAN 
Fur —00@ 


BEGIN 
LENGTH = RSTSK_ROUTENTSIZ + (1 /4; 
SIZE = . IMAGE + 


. NAMEP 
DULE_RS 


B+ 


IMAGE MODULE _RST - LENGTH; 


RSTCNTRL -$ep-1984 753:41 AX-11 Bliss-32 ve 0-742 Pa 30 R 
yous000 16-Sep-1964 95:33:51 DEBUG. SRC RSTENTR L.832;2 ” (6) Vi 
RSTPTR = GET _MEM(. st NGTH 
DSTPTR = .RSTPTR CRSTBk “ROUTINE: 
RSTPTR RsfS8_k1ND) = RSTSK 
RSTPTRLERSTSL_STAR ~ 5 ae VALUE: 3 
RSTPTRLRSTSL_ENDADDR) = .VALUE; 
RSTPTRLRSTSL_BREAKADDR) Oe ¢ 
DSTPTREDST =KENGTN) = 7 + ,WAMEPTRLOD; 
g DSTPTREDST$B_TYPE] = DSTSK me G; 
DSTPTRLDSTSV_RTNBEG_UNUSED] = | 
DSTPTRLOSTSV_RTNBEG_NO caLtd s 
5 DSTPTRLDSTSL BINGE “ADB A iui 
CHSMOVE (-NAMEPTREO)~* 1. NAMEPTRLO scour ni RTNBEG_NAME J); 
One additional thing we do here is: it the shen ae 
0 we are adding is for the routine LIB used {a b 
71 save away its address. — ~~. secor used in 


Se discover whether we are Sogo’ ng over Aig o et IBSSIGNAL. 
way we can are’ LIBSSIGNAL n the GST if the user 


' | 
| 
i | 
i | 
4 7NOSYSSHR | 
if CHSEQL(11, .NAMEPTR, 11, UPLIT(ZASCIC "LIBSSIGNAL")) | 

| 

| 


a 


CONAU EWP 


“J 


DBGS$GL_LIB_ SIGNAL -ADOR = VALUE 
if CHSEQL(9, .RAMEPTRT 9, UPLIT(ZASCIC "LIBSSTOP")) 


HEN 
a DBGSGL_LIB_STOP_ADDR = .VALUE; 


seseesseseys 


SERSESS 


the global symbol is a data symbol, build a Data Item RST Ent 
- Also construct the corresponding dummy bst record. The DST 
pe is set to be longuord integer. 


ae ek ee et ot ad et et td 


MEW 320 OBVNOUE WN “OO ONOU SW 
» 
mn 
= 
= 
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Du 


BEGIN 
LENGTH = RSTSK_DATENTSIZ + (11 + .NAMEPTRIO))/4; 
IMAGE MODULE _RST by ize = g ERASE MODULE _RST_SIZE + .LENGTH; 


NGTH) 
RSTPTR + oRSTSK = pATG NTS: 
RST K-DATA 


] 
90 
4 
38 
94 er ° 
95 RSTSB “RINDI = 
96 iat RSTSL_TY as 
9 DSTPTR REDSTSB_LEN 6TH) = 7+ panes 
38 DSTPT m{Dsrse-tyre) = dS % _DTYPE_L; 
DSTPTRLDST$B_VFL 
DSTPTR OSTSL VAL LVed | 
383 CHSROVE (HARE PTRLO) + iv ME i oracod. DSTPTRCDSTSB_NAME)); | 
904 
905 ! FILL in the remainder of the RST entry and mark the symbol as global. 
308 ; Attach the symbol to the anonymous module's symbol chain. 
309 an EQL .RSTSSTART_ADDR 
10 


RSTPTRCRST$SV_GLOBAL] = TRUE 


a ee ed ee ed ad od td = = = = od = 3 I 
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_ — abefeime OBsS5s4) YMKGIT BL igc¥2 40-742, page 1 | 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


s 1 

: 1§ : : Make a Static Address Table Entry. 

: 915 1 ELSE 

: 3i$ 19¢8 FRAGE MODULE_RST_SIZE = .IMAGE.MODULE_RST SIZE + SATS 

4 * 

3 4 i 6 STATIC. ADDRESS(.VALUE, 1, .RSTPTR, MOBRST TPTRERSTSo SA he Fiise): 

: 9 1 

; 9 1 RSTPTRERSTSL SrMCImcaNPTR = -MODRSTPTRERSTSL_ SYMCHNPTR); 

; 9 : 1 MODRSTPTRERSTSL_SYMCHNPTR] = .RSTPTR; | 

; 9 105} RSTPTR RSTSL_DS DSTPTR DSTPTR 

3 926 1 4 RSTPTRERSTSL_UPSCO pred z th estore: 

: 925 1 STPTRERSTSW NER COUNT “= = 0; 

3 3 § | 26 GSHASH_INSERT(.RSTPTR); | 

: 928 1 

: 2 9 : 33 H We are all done. | 

: 931 1089 RETURN 0; | 

: 9 ; 1060 

; 9 1061 END; | 

} 
00058 .BLKB 1 | 
4C 41 4 47 49 53 34 42 469 4C OA 0005C P.AAG: ASCII <10>\LIBSSIGNAL\<0> ; 
00 00 50 4F 54 5 4 42 49 4C 08 00068 P.AAH: .ASCII <8>\LIBSSTOP\<0><0><0> : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DaGSG 1,19. RST, Save R2,R3.R4,R5,R6.R7.RB.- ; 0926 
58 00000000" EF 9 MOVAB IMAGE RODULE. RST_SIZE, R11 : 
08 AC 6 MOVO NAMEPTR, R : 0981 
1 ac f BLBC ROUTINE FLAG, 2$ : 0978 
A MOVZBL (RB), RO ; 0981 
B co ADDL2 #11, RO : 
4 € DIVie a6 RO. ; | 
¢ ADDL2 = #tf ; 
¢ ADDL CENgTH, Tnace -MODULE_RST_SIZE 3 098 | 
DD PUSHL LENG GTH : 0983 | 
0000v CF 1 FB CALLS #1, GET_MEM F 
6 ea ROVAB GERI). DSTPT 0984 | 
A a a7? MOVAB 20(R7). R10 ; 898s | 
6A é move #2, (R10) : 
18 A? D MOVL R9, 24(RSTPTR) : a6 
1c (OA? 9 MOVL RO B(RSTPTR) : 09 
28 «A? 02 ag : v ecko 40(RSTPTR) : 09 
“ 1 6? BE i noveae BF 4g Pg cBaTRT®D : 99 | 
83 Ab 9 D VL RY, SCDSTPTR) : 303 


a 9 
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3; Routine Size: 254 bytes, Routine Base: DBGSCODE + 0563 


SA GF MOVZBL (RB), RO 3 0994. : 

¢ INCL R 3 3 

moves R (RB) 7(DStPTR) : | ; 

8 cmpcS 1, (RBS, P.AAG ; 1004 : 

000000006 0 9 MOVL. 9, DBGS$GL_LIB_SIGNAL_ADDR + 1006 ; 
00000000" EF 3 i : A 1$: cMPCs 49. Re , P.AAR . : 1007 : 
000000006 00 39 0 i MOVL 9, DBGSGL_LIB_STOP_ADDR : 1009 : 
F i 78 BRB ; 0978 | : 

8 aA 7D 28: mov? L (Re), RO ; 1019 : 

iam DIVL ; ; 

- Ye ADDL #7. LENG 3 3 

68 0 ¢ ADDL LENGTH. IMAGE _MODULE_RST_SIZE : 1020 ; 

DD C PUSHL LENGTH : 1021. : 

0000v CF 91 FB 0 CALLS #1, GET men 3 ; 

? ! 3 9 VL RO, RS : ; 

; 16 AP OE 000eR mvs spiny osrPTR 1038 

6A 06 9 Hi; vB «#6 wth) : : 

18 AZ? 04 OOOA CLRL_  24(RSTPTR) 3 1024 | ; 

66 68 7 81 OO00A4 ADDB3 #7, (RB), (DSTPTR) + 1025) ; 
01 Ab 0108 8F 80 9 A8 VW #6 1(OSTPTR) : 10 ¢| ; 

03 Ab 9 p A VL OR ScostPTR) : 1028 : 

50 $ A 008 ROV ZBL (Rb), R : 10 9| 3 

07 Ab 8 Bf 908 MOVC3 RO (RB), 7(DSTPTR) : : 
2 04 AC DO 000BC 3$: MOVL ORSTPTR, R : 1036) ; 

00000000' EF D1 90¢9 CMPL =e RR, SS TSSTARt ADDR 3 3 
6 1 90¢ BNEG 4 : : 

01 «AA o1 8 c9 1 S82 fi. 1(R10) ; 1038 | ; 

3 | e 

68 03 CO aoct 43: ADDL2 #5, IMAGE_MODULE_RST_SIZE > 1045 | ; 

4 00002 CLRL 0. = ( §P) > 1046. : 

18 =A F 00004 PUSHAB 24(R2) : | : 

57? DD 007 PUSHL RSTPTR : : 

1 OD 00009 PUSHL #1 F : 

0000v CF 5 PB 00000 CALLS #5, STATIC ADDRESS pm 

08 A? 08 a3 D ee 5$: MOVL  8(R2), BCRSTPTR) 3 1049 | : 

Ae D E MOVL = RSTPTR, 8(Re) > 1050 | F 

. s D EB MOVL  DSTPTR. 12(RSTPTR) : 1051. : 

10 A? D EF MOVL  R2, 16(RSTPTR) : 1 3 : 

02 AA B 3 CLRW =. 2(R}10) : 1053. : 

7 0D rb PUSH RSTPTR > 1054, : 

0000v CF 1 FB r8 CALLS #1, DBGSHASH_INSERT poe : 
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8 3 5 : ; } GLOBAL ROUTINE DBGSHASH_FIND(NAMEPTR) = 

: 9 1064 1 ' FUNCTION 

3; 9 1065 1! This routine looks up a specified s abot A ad in the RST Hash Table and 
; 9 1 1! returns a pointer to the'¢ ¢ srespene ing ng af This cout ioe is ale 
; 940 1 1! ways used on conjunct tth r n DBGSHASH. IND_SET Since there 
3 941 1 8 1! can in general be many ast entries with the same ya ¢ name ouace 

; 38 1 ii has to be a way of finding alt uch entries. 08G FIND_SEfuP 

: 9% 1070 1! thus called fo aSamPtis the initial hash index and to intialTze th A. 

3: 944 1071 1! search. DBGSHASH ” can be be called S Fegeeteds? to find each indi- 
; 945 1 % 1; vidual occurrence of the given name in t When no more RST 

: an8 : a : : entries with that name are found, a i Mest pointer is returned. 

5 948 1075 1! INPUTS 

; 949 1 78 s NAMEPTR = A pointer to the counted string that gives the name of the 

; 950 1077 1! symbol to be looked up. This name must be a single symbol 

3 82) 1978 : name, not a complete pathname. 

: 32g 1080 1! The OWN variables DBGSHASH_RSTPTR and DBGSHASH pace are implicit 

: 9546 1081 1! inputs. These variables are set ot Se HASH_F IND_SETUP 

; 955 1ORe 7! initially. Of these, variable DBGSHASH_RSTPTR is updated 

3 326 is ; : by this routine. 

; 98 1088 1! ouTpuTs 

: 959 10. 1! A pointer to the next RST eet | with the specified symbol name is 

; 960 1087 1! returned as the routine’s value. If there are no more RST 

: sd ions : entries with that name, zero is returned. 

: 308 1090 1! DBGSHASH_RSTPTR is an implicit output. It is updated to contain the 

: 9646 1091 1! returned RST pointer. 

; 965 1936 1! 

; 966 1095 1 

3; 967 1094 BEGIN 

3 28 Hy 444 

: 390 1099 NAMEPTR: REF VECTORC BYTE); ! A pointer to a counted string contain- 
3; (971 1098 i ing the desired symbol name 

3 4 1099 

: 97 1100 LOCAL 

3 Be 1108 DSTNAMEPTR: REF VECTORC BYTE); |! Pointer to DST name counted string 

; 976 110 

:; 97 1104 

3 38 1105 ' Loop through the current RST hash chain until the chain ends, i SF until 
3; 9 11 ' we get back to the chain List head. for each RST entry, we see if it has 
3 380 Ht the name we are searching for. If it does, we return it to the caller. 

; 98 1109 if DOGSHASH RSTPTR EQL O THEN sone Arr Ating 4 ee FIND"); 

> 98 1110 DBGSHASH_RSTPTR = .DBGSHASH_RSTPTRCRSTSL_H FLINK] 

3 oee i ' 1 WHILE G» DAGSHASH RSTPTR NEQ RSTSHASH_ TABLECoS. "5BG HASH. INDEX) DO 

: 986 118 IF DBGSHASH. RSTPTRERSTSV_GLOBAL) 

: 88 1115 i DBGSSTA_SYMNAME (.DBGSHASH_RSTPTR, DSTNAMEPTR) 

; p44 ni? DSTNAMEPTR = DBGSGET_DST_NAME ( .DBGSHASH_RSTPTRCRSTS$L_DSTPTR)); 
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IF CHSEQL(.NAMEPTRCO], NAMEPTRC12, .DSTNAMEPTRCOJ, DSTNAMEPTRE1), 0) 
RETURN .DBGSHASH_RSTPTR; 
DBGSHASH_RSTPTR = .DBGSHASH_RSTPTRERSTSL HASH FLINK]; 


! The hash chain ended before we found another RST symbol with the same 
name. Set DBGSHASH_RSTPTR to zero and return that as the routine value. 


DBGSHASH_RSTPTR = 0; 
RETURN 0; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


52 54 4E 43 ti Z : lg 446) P.AAI: .ASCII <18>\RSTCNTRL\<92>\HASH_FIND\ 


-PSECT DBGSCODE,.NOWRT, SHR, PIC,0 


003C¢ 00000 .ENTRY DBGSHASH_F IND Save R2,R3,R4,R5 
55 00000000° EF e 20095 nOvA DBGSHASH “RSTPTR, 
65 D5 0000C TSTL DBESHASH. RSTPTR 
1§ 12 00005 BNEG ~=s«*d1$ 
00000000' i 9F 0001 PUSHAB P.AAI 
1 DD 00016 PUSHL “i 
000000006 00 — Os 3 etd CALLS 
5 9 00 00 § 1$: MOVL Saiaeee RSTPTR, DBGSHASH_RSTPTR 
34 04 ac DO 00028 MOVL AMEPTR 
6 00 99 C 2s MOVL DacsHAsi RSTPTR 
FC OA 1 O02F ASHL DBGSAASH_IND a RO 
20 00A8 533 D 99 4 MOVAL ; sfshash TABCECROJ. RO 
: 0030 BEQL 
oll RB HRhy fetes 
000000006 00 02 it 0 4 CALLS MeNBGSSTA. SYMNAME 
0c Ae DD 3$ PUSHL 
F9B2 CF 9 FB CALLS  DeGScEr DST_NAME 
0 p HOVE RO. NAREBTR 
; 06 BC 9A B 4$ MOVZBL SNAMEP 
6€ 00 f MOVL  DSTNAM sig 220 
1 ¢ Bh é MOVZBL (RO) 
01 Ae ae D cMPCS = R2, {cr , #0, RI, 1(RO) 
04 12 6D BNEQ 4=sS$ 
50 65 D 6F MOVL § DBGSHASH_RSTPTR, RO 
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bese Sep-1 :5 AX-11 Bligs<32 V4.0-742 
14- Haat 98: 73:36 DEBUG. SR RCIRS ASTENYR i .832;2 
04 8 RET 
75 4 0 f 5$: ove SEOSTAEN_ ASIP TR, DBGSHASH_RSTPTR 
$3 D4 18 6$: CLRL EQCSHASH_ASTPTR 
0 D4 OOO7A CLRL R 
4 0007C RET 


3; Routine Size: 125 bytes, Routine Base: DBGSCODE + 0661 
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RSTCNTRL 16-Sep-1986 02:53:41 -VAX=11 BLiss-32 vé.0-742 p 
yo4s000 1o-908-198e 98: 7535) DEBUG. SRCIRSTENTRi 83252 all 
GLOBAL ROUTINE DBGSHASH_FIND_SETUP(NAMEPTR): NOVALUE = 


FUNCTION 
This routine sets up a search through the RST hash table for a specified 
symbol name. The routine computes he symbol's hash index and saves it 
and a peceeer to the corresponding RST hash chain's List head in 
variables where they can be accessed . cous ne DBGSHASH_FIND. After 
the initial DBGSHASH FIND SETUP call, DBGSHASH_FIND should be called 
repeatedly to find afl RST entries with the specified symbol name. 


note that the hashing method is encoded both here and in routine 
DBGSHASH_INSERT. If it is changed in one place, it must be changed 
in the ofher as well. 


oa 


a 4 4 


oo 


——> 


NOW Ew 


ae a nt ns a se 


INPUTS 
NAMEPTR = A pointer to the counted string that gives the name of the 
symbol to be looked up. This name must be a single symbol 
name, not a complete pathname. 


ee ee 


penn jal aloleleololololo) 


OUTPUTS 
No value is returned by DBGSHASH_FIND_SETUP. 


There are two implicit outputs: DBGSHASH_INDEX and DBGSHASH_RSTPTR 
are set so they can be used by routine DBGSHASH_FIND. 


WN —$O CONOUFS WN OO 


LOCAL 
WORD_NAMEPTR: REF VECTORC,WORDJ;! Pointer to symbol name counted string, 
yt to access the string one word a 
. a me. 


Compute the hash index for the specified symbol name. Set DBGSHASH_INDEX 
and DBGSHASH_RSTPTR so they can be used by the DBGSHASH_FIND routine. 


RRRLRERLLISIAS 


' 
i 
i 
! The hash algorithm is as follows: 

: Add up the words in the name. (If the number of bytes is odd then include 
! the count byte in the first word so it comes out even.) Then take 

that sum modulo the hash table size. 
i 
T 


F (.NAMEPTRCO} MOD 2) EQL 0 
HEN 


EL gEtORD=NAMEPTR = NAMEPTRE1) 
WORD_NAMEPTR = NAMEPTR(O); 


DBGSHASH_INDEX = 0; 
INCR I FROM TO (.NAMEPTR[0)+1)/2-1 DO 
DBGSHASH_INDEX = .DBGSHASH_INDEX + -WORD_NAMEPTRE.1); 


DBGSHASH_INDEX = .DBGSHASH_INDEX MOD RSTSK WASHTBL SIZE; 
DBGSHASH-RSTPTR = RSTSHASH~TABLEL2®.DBGSHASH_ INDEX); 
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BEGIN 
MAP 
NAMEPTR: REF VECTORC BYTE); ! Pointer to symbol name counted string 


cc cc cet ee cc cel ce ce et ce el el el el ee ee kk a lll 
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S2 


CSRs 
; RETURN; 
END; 


001C 000 .ENTRY DBGSHASH_FIND SETUP, Save R2,R3,R4 3 1134 

4 00000099" 44 3 ate & DBGSHASH_INDER, RG pom 

90 1 7A EMUL #1, RO, #0, -(SP) : | 
E EDIV #2, (SP)+, RO, RO ; | 

D 1 TSTL R 3 

1 19 BNEQ 1 3 

52 06 Ac } 9 901 ADDLS a}. NAMEPTR, WORD_NAMEPTR > 1181) 
52 04 AC 00 00022 1$: MOVL #§ NAMEPTR, WORD_NAMEPTR + 1183) 

64 04 00026 2$: CLRL_ DBGSHASH_INDER : 1185) 

51 04 Bt A 000 MOVZBL @NAMEPTR; R1 + 1186) 

1 D6 C INCL. 1 : 

51 é C6 : DIVL2 e, R1 : 

50 re 99 MNEGL #1, I + 1187) 

7 0 BRB 4$ : | 

53 6249 3C 00036 3$: MOVZWL (WORD_NAMEPTR)CIJ, R3 : 

$¢ 2 CO OO03A ADDL2 R3, DBGSHASH_INDEX : 

5 0 i Ff 99 4$ AOBLSS Ri, I : 
00 64 1 7A 00041 EMUL Ss DEGSHASH_ INDEX #0, -(SP) : 1189) 
50 8E 000009C7 BF 7B 00046 EDIV #250 (SP)+> RO, R : | 
64 0 p O04F MOVL RO, DOGSHASH_ INDEX : | 

50 64 01 0052 ASHL #1, DBGSHASH JNOEX. RO : 1190) 
06 A OOAC C440 : 036 MOVAL RSTSHASH_TABCECROJ. DBGSHASH_RSTPTR Beet 

; | 


; Routine Size: 94 bytes, Routine Base: DBGSCODE + 06DE 
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182300-1 382 93:73:36 DEBUG. SRCIRSTCNTRL.B32:2 — (3 
LOBAL ROUTINE DBGSHASH_INSERT(RSTPTR): NOVALUE = 
FUNCTION 
This routine inserts an RST entry in the RST Hash Table. The symbolic 
name geeec Seteg with the RST query is looked up phe DST and is hashed. 
The RST entry is then Linked into the corresponding hash chain. 


G 
' 
i 
i 
i 
i 
i 
: Note that the hashing method is encoded both here and in routine 
' 
i 
i 
i 
i 
i 
i 
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DBGSHASH_FIND_SETUP. If it is changed in one place, it must thus 
be changed in the other as well. 


INPUTS 
RSTPTR = A pointer to the RST entry to be inserted in the hash table. 


OUTPUTS 
NONE 


BEGIN 


RSTPTR: REF RSTSENTRY; ! A pointer to the RST eatry to be 
3 inserted in the RST Hash Table 


LOCAL 
HASHINDEX 
NAMEPTR: REF VECTORC,BYTE), 


ont .8 The computed hash index. 
NEXTPTR: REF RSTSENTRY, 


' Pointer to symbol name (counted ASCII) 

! A pointer to the RST entry in the hash 
chain before which the new RST 

: entry is inserted. 

! A pointer to the RST entry in the hash 
chain after which the new RST 

: entry is inserted. 

WORD_NAMEPTR: REF VECTORC,WORDJ;! Pointer to symbol name counted string, 

: weet to access the string one word a 
! a time. 


SESZSES ss SSS SSS Ses eS Ss SSSS SSE 


PREVPTR: REF RSTSENTRY, 


dd od td ot OOO 


: Get the RST entry's symbol name from the DST and compute its hash index. 
if .RSTPTRCRSTSV_GLOBAL 


ELS DBGSSTA_SYMNAME(.RSTPTR, NAMEPTR) 
NAMEPTR = DBGSGET_DST_NAME( .RSTPTRCRSTSL_DSTPTRI); 


! Compute the hash index for the ope tf ted symbol name. Set DBGSHASH_INDEX 
! and DBGSHASH_RSTPTR so they can be used by the DBGSHASH_FIND routine. 


! The hash algorithm is as follows: 

! Add up the words in the name. (If the number of bytes is odd then include 
' the count byte in the first word so it comes out even.) Then take 

' that sum modulo the hash table size. 


me ee ee ee me me a a a a a at a ad et oe a od a a as 4 a a ts — FP 
a a a a a a a a a a = = = = = = = a 4 a as — 2 ts 2 4 4 
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a a et ts 4 2s ss 2 


Morononororns 
URNS SaVenRraw=SSSVERFANLS 


SOOONO UNE Ww 0O@ 


VELL 


S32 


SS § 


3 11 1 

3; 11 1 

3 11 1 

3 33 1 

3 11 1255 
3 11 1 $ 
3 11 § 1 

3 11 1 8 
3 11 1 

3; 1155 1 r¢ 
3 11 1 

3 11 1 ¢ 
3 11 1 

3 11 1264 
3: 1140 1265 
3 1141 1 96 
3 Ba 126 
3 114 1 o8 
3 1166 1 

3 1165 1270 
3 13% 1271 
3 114 127 
3: 1148 127 
3 1149 1274 


54 


if (.NAMEPTRCO) MOD 2) EQL 0 
HEN 


EL gEHORDANAMEPTR = NAMEPTRE11 
WORD_NAMEPTR = NAMEPTRLO); 


HASHINDEX = Q; 
INCR I FROM QO TO (.NAMEPTRLOJ+1)/2-1 DO 
HASHINDEX = .HASHINDEX ¢ .WORD_NAMEPTRE.1); 


HASHINDEX = .HASHINDEX MOD RSTSK_HASHTBLSIZE; 


Link the RST entry into the appropriate hash chain. 
PREVPTR = RSTSHASH TABL ECE .WASHENDEXI: 
PREVPTRERSTSL_HASH_FLINKI; 
L_HASH_FLINK)~= .NEXTPTR; 
RSTPTR BaTst HASH BLINK) = .PREVPTR; 
PREVPTRCRSTSC_HASA_FLINK) = .RSTPTR; 
WEXTPTR RSTSL_HASH_BLINK] = .RSTPTR; 


END; 

003 ENTRY 

So a Se a 

0D 15 a5 E LBC 

4004 of 68 PUSHR 

000000006 00 rs CALLS 
0c A2 0D PUSHL 

F90D CF 9 4 CALLS 
55 00 br oA MOVIBL 

Ft i 4 Nt) 

3 ? TSTL 

BNEQ 

6E of ADDLS 

54 2 DO foul 

gf + CLRL 
53 00 6 ROVZBL 

3 3 bite 

3 ii MNEGL 

- BRB 
5 6441 ROVZUL 

3 i ch ADDL? 
1 f AOBL SS 

0 Ff ERUL 
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DBGSHASH_INSERT, Save R2,R3,R4,R5 


21(R2), 1 

<R2,SP> 
#2, DBGSSTA_SYMNAME 
¢(R2) 
#1, DBGSGET_DST_NAME 
0; NAMEPTR 
PTR, RO 
#1, RO, #0, -(SP) 
a, (SP)+, RO, RO 
#1, NAMEPTR, WORD_NAMEPTR 
NAMEPTR, WORD_NAMEPTR 
HASHINDEX 
SNAMEPTR, R3 
#2, R3 
“i, 


WORD_NAMEPTR)CIJ, R5 
RS: HASHINDEX 


| 
#1; HASHINDEX, #0, -(SP) 


row 
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vecr000, ecb Q3:49:4) YAEGDE S4USAG Heat, aaa 


50 50 000009¢7 F 7 polv, 4 #3503, (SP)+, HASHINDEX, HASHINDEX Fsess 
00000000° EF 6 D ¢ ROvAL tshtsn T aay PREVPTR : | 

4 (PREY yeTRy > 1267) 

6 77 ir2 : 1368 

6 7A ROVL Re, n PREVPTAD 1270 | 

046 Ad 7D MOVL > 4(NEXTPTR) 1271 

81 RET 1276, 


; Routine Size: 130 bytes, Routine Base: DBGSCODE + 073¢ 


vi 


0-742 Page 4 
-11 2 
1b-epn964 02:55:41 YAN-NT BLigse¥2 v4.0-74 


$8 
e 


: NOVALUE = : 
T BUILD (MODRSTPTR) 
1275 1 GLOBAL ROUTINE DBGSRST_ le. It takes as input a ; 
: 3183 1579 1 i FUNCTION Ssstrad catetats Roles Let bane tele tal ilenn oe" 
1 , 1} pointer. to the desired — wh chore scenes ee urecr inn cre- : 
; 1 1; module's DST rec ecord, a corres he modul -_ é 
" i : i rocere is round “val och Such RSs a 1 &. f - eves static eadresses. are 3 
14 } 1 j ated if appropr es RST Hash Table. tat) as well. é 
: 1 1} hain and to the address Ta te. ; 
: 1188 igo? 1 | added to the module's static a ; 
é 1; hose : 
tet 3 : i INPUTS inter to the Module RST Entry of the module w : 
; 1168 : MODRSTPTR = A pointer to ; 
; 1 : lue is returned. : 
; 1166 i ted. No va : 
; 1168 or he RST for the specified module is construc 
; 1291 1 | 
; 116 i : 
1169 1338 1 BEGIN ‘a te | ; 
; r F 
; 11% : 95 ! Pointer to the yo We to be’ built : 
‘ N72 1 4 ome MODRSTPTR: REF RSTSENTRY; i module whose R : 
: 117 3 onent : 
: record comp ; 
ie fete bons mang eee nt ate | 
3 iy 1300 L MAX_NESTING = 50; ' nesting ere Py 
dg 8 | Hela, gefindtiong,for, RECSTAC, aay : 
; i a : 
3; 1179 ; $s FECL FSF BELOS : : Senpenant list rater | 
: 1180 1305 $s CLPTR i 0, ® e i Component ist $s ddress Py 
: 1182 1 Re-ct SIT 43% t> ; ; Record Begin Ost sddre | 3 
: 1183 1 RS_RCDST “ ¢: = persone ese size in Tongwords ; 
: 1184 : 4 RS_VRPTR etic ! Type ; 
1186 1311 TES: sto be added to SAT , 
; 1188 } 18 Lecn S Flog set if te tem is orre A, records ; 
: 1189 1314 ARRAY Lag 3 | RST entry backward hash Link "°° ; 
: 1191 i 1 its hee Ly made : dente a tyes refer ny hy “global” ‘ 
: 138 HE a j Flag set fo Thue pplies to the next : 
3 1194 } 8 COBOLGBL _FLAG, H abet a efined in the 05 laos 3 
3 1195 1320 NG].' P inter to Basie os List block : 
¢ 1198 1321 TpTR: REF VECTORC.LONG].! Pointer to curr Continuation DST 
: 119 ! § COP” -t3i- <5 ifs SEE i Flag set wee © Sen Continu é é 
; i or : 
; 1198 : 4 CONTINUATION IM TIALCFALSED. pointer. to the current DST ¢ cord ; 
4 o1 1352 pSTPT DSrpin: Aer DSTsREcoRD, rpinter pointer to be saved in t 
1 ; TYP p ig The vst ty ee pe of the. enumeration type 
: 1205 1380 PRURBITSIZE, 
: | 1331 
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Pointer to enumeration element List in 


$5 
as 
o 
z 
_ 
@ 
cr 
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ENUMELT: REF VECTORC,LONG), 


wn 


the Type RST Entry 
ENUM_DSTPTR, Pointer to” Suneret ten Type Segre OST 
5 record for current enum type 
ENUM_LST_PTR: REF VECTORC,LONG),! patanpe to List block used to accumu- 
ps a B en or Wi a Tien elements 
ENUM_LST gize @ -y 1 T_PTR memory block 
FLINR: REF ITE SENTRY, entry oruard. pag | nk 
L static address to add to SAT 
MODNAMEPTR, Pointer to the module name as Counted 


Cll--used for error messages 
Pointer to Module RST atry yryector of 
nters 
Pointer to Module RST Entry. vector of 
ointers to module's Source Line 
ghee Ay + Records 
Pointer to sya ol name counted ASCII 
Set to TRUE if the new RST entry def- 
ines a new level of nestin 
Current DST record meetin dept 
Stack containing RST pointers for 
myeees DST items: lexical enti- 
ties and record components 
NESTING_BREAK, Current “Ost record break address 


i nesting depth 
NEST_BREAK_STACK: VECTORCMAX NESTING), 
' Stack containing RST pointers for 
nest oes +4 | items: Routine and 


MOD_PC_TBL: REF VECTORC,LONG), 
MOD_SRC_TBL: REF VECTORC,LONG), 
NAMEPTR 

NEST_FLAG, 


1 
1 
' 
i 
i 
i 
i 
i 
i 
i 
Lengen ° 
i 
i 
i 
i 
i 
i 
i 
i 
i 
NESTING 
NEST_STACK: VECTORCMAX_NESTING), 
i 
i 
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Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Se Gs Ge Ge Ge Se Ge Se Ge Se Ge Se Se Se Se Ss Se Ge Se Ge Se Se Se Se Se Ge Se Se Ge Ge Ge ee 
me ce ee ee ce a ee a a ce ee ee ee ae ed ed ed ed ed ed 
em ce em ce ee ee ee ee ee ee ed ed ed ed dd oS od od 


: Ent 
1 NEWENT_FLAG, ! Flag set a Thue if a new RST entry is 
§ : eing built from this DST record 
9 NUM_PC_TBLS, ! Number of pC-Correlation Tables in the 
40 4 : DST for the module being 
41 5 NUM_SRC_DSTS, ' Number = Source Line Correlation DST 
4 ! ords for module setae SET 
4 7 PC_CORR_SIZE, ! Size ~ the PC_CORR_T nory block 
44 PC~CORR_TBL: "REF VECTORC.LONG), | Pointer te table of~ anere o the 
45 9 ! +4 C-Correlat on Table records 
4 0 ! + che module being 
4 71 PCTBL_BASE, ' Base address for offsets in current 
4 ts ' e's PC=corretation Tables 
4 7 PPTR: ner gOSTSPSECT TRAILER, : Pointer to PSECT DST record trailer 
50 74 RECBEGTR ! Pointer °. Record Begin DST record's 
1 75 REE DSTSRECBEG_TRLR, ' tra elds 
¢ A | REC_DSTPTR: REF DSTSRECORD, ! Pointer to “Record Begin DST record 
7 RECSTACK: BLOCK vee ton ' Record stack to neee ¢ track of nested 
4 7 CMAX_NEST ING, 5] ! record and variant definitions 
5 7 PIECBCR RS_FIELDS), : 
: RSPTR, } Current necst STA - jodex ¥ ingut available 
! loca 
3 RSTPOINTER : REF RSTSENTRY, !' Pointer to os & or" 334 ry 
+4 RSTPTR: REF “RSTSENTRY, } Pointer to ed He gntry we are 
! curren 
61 RST_PTR: REF RSTSENTRY, ! RST ye Be pointer-~used a unen fixing up 
6 4 gfe, cont nued DST records 
6 SRC_CORR_SIZE, ! $i ze et a Src Me ge mory block 
64 SRC-CORR- tare REF VECTORL,LONG),! Pointer to the totem r) nters to 


rt, 4 
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9 the Source Line Correlation DST 


records of the module being SET | 
Flag set to het for static data items 
romeet fo the last pense on the mod- 

ule’s symbol chain 
Pointer to a (- e spec in a DST record 


STATIC_FLAG 
SYMCHNPTR: REF RSTSENTRY, 


TSPTR: ner DSTSTYPE_SPEC, 


TAGDSTPT Address of the DST record of a record 
variant’s tag variable 
mnanswm, Address t the RST entry of @ record 
TYPCOMPLST: REF VECTORC,LONG Pointer t . “3 he. re t 
: ° r to @ onent Lis 
4 TYPE_DST_LST: REF VEC 9 at gies, Pointer to bee pert ef DST to RST 
4 translate Fable for type entries . 
4 TYPE _DST_LEN, Size of TYPE_RST ase! Fn ea block 
4 TYPEPTR: REF RSTSENT t 
4 TYPE URST_LST: REF VECTORE LONG), i Pointer | to R A. of DST to RST 
4 nslate table for type entries 
4 TYPE_RST_LEN Size + TYPED DST_LST memory block 
TYPREFTBC: REF VECTORC,LONG), Pointer to Type AST Entry's Z type 
reference table 
TYP_RST_SIZE, Size in longwords needed for the Type 
RST memory block being built 
UNNEST_FLAG, Set a — if this DST en 7 termi- 


9 level of DST nesting 
Pointer. to the ariant-Set "Begin DST 
cord trailer fields 


} 

VARBEG_DSTPTR | 
cory? to Variant RST Entry--used to 
| 

| 

| 

| 

} 

| 

| 


REF DSTSVARBEG_ TRAILER, 


VARIANT_ENTRY: 
“REF RSTSVAR ENTRY, x se pointers to continued DST 
VARIANT _VALUE_F OUND, Set to “TRUE when a DSTSK aVARVAL 


1 
1 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! Pointer to Tyee Rs Entr 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i record has been fou 
VAR_REC_PTR: REF RSTSENTRY, i Pointer to the current “Variant RST 
i ntry being built 
VARSETTBL: REF VECTORC,LONG]; ! Pointer to Variant Set Table--used to 
fix vp pointers to continued DST 
records 


NABLE 
RST_BUILD_ERROR_HANDLER; ! Set up error handler for DBGS_NOFREE 


' We have Syecered an — neneier to handle the D0BG$ oNornce condition 

! i.e. running ou while building the module’ s RST. The handler 
removes the a ete bul t module from the RST. We set the address of 
i 
i 
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the Module RST Entry in MOD BEING_BUILT for the error handler to use. | 
This handler also handles the abort-on-control-Y condition. 


MOD_BEING_BUILT = .MODRSTPTR; 

! If the module's RST has already been built, we return immediately. 

Otherwise, we set the Module-in-RST flag and continue processing. 

if oe KIND] NEQ RSTSK_MODULE 
SDBG_ERROR("RSTCNTRL\RST_BUILD 10°); 
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vi 


-000 : 
73 14% F_ .MODRSTPTRERSTSV_MOD IN RST] THEN RETURN; ; 
i] f if HODRSTPIRERSTEV MOOT IN REIT >. TRULG , 
: 1325 t Recently Used mod- ; 
: 16 Used module. (The Mos : 
3 $ 1? ; : eel 7? 3 be renoved by BBGSeET MEMORY to get more free space.) | ; 
3; 3 i : 
4 14 ° ds : 
: 1454 DBGSRST_MOST_RECENT( .MODRSTPTR | 
3; 1331 : 
H ; § 12 $ ! Build shareable image RST entries. | 3 
4 14 : j ; 
A 18E Eipeuosteacsro sme sae | i 
3] MODRSTPTRCRSTSL_BA P : 
; 146 BEGIN -MODRSTPTRERSTSB_IMGFILCHAN], . | ; 
: : 146 IF NOT DBGSGST_INIT( .MODRST | ; 
i 9 re ¢) THEN «1 GNAL (DBGS .NOUNI VERSALS) ; 7 | 
-4 1466 ; 
° 146 RETURN; ; 
; 1345 the first DST recor : 
: 1470 ST) pointer to point to | ; 
; ; 1293 after ‘the specified sotule's Rodute-Begin record. ‘kote. that ve Bick up 
i183 ie § | En lappengcate fan, te hety fle oe Arcata antene Pea, 
Hes BR} breresanmeerey ne tT eee rae spe eee moses | i 
71 38 147 IF aerrrithetes CANGUAGE] = .DSTPTR DSTSL_RODBEG_LANGUA F | : 
21 33 1299 MODNAMEPTR = DSTPTREDS 19. MODBEG NAME); | : 
3 1355 147 DSTPTR = DBGSRST_NEXT_DSTT .DSTPTR ); | : 
i 1387 1281 . dicate that we | : 
3 3 " /1 flag’ to indicate 3 
: 1338 i? ! If this is a PL/I module, we set the “old tea tors generated by old ver- | F 
: 1 26 16 i must compensate for the Incorrect ites rigs Bee if we find a Version ; 
: 1361 12 3 bs Record for this module later in the DST scan. ; 
33 i : 
: § i? if .MODRSTPTRERSTSB_LANGUAGE) EOL DBGSK_PLI 
; ! 5 1088 vim MODRSTPTRCRSTSV_OLDPLIFLAG) = TRUE; 3 
1 1491 to zero. Also set up : 
: 149 , ic Address Table pointer to : 
: HRS $j tsetse te eenens tte een ee esas rts : 
- 4 ; : 
| 1495 TSL_SAT_PTR] = 0; ; 
i 1299 STACANPTR. = “mODRSTPTR: 
; : 1498 COBOLGBL_FLAG = FALSE; pri! ; 
i] late pointers to the module's : 
33 1 ! Set up the two buffers we will use to Secymetote gee Correlation DST 
; ; 1301 i Pe-Correlat on Table DST Records and its 
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! Records. Initialize the number of such records to zero and set the PC- 
; Correlation Table base address to the largest possible address. 


NUM_PC_TBLS = 0; 

PC_CORR_SIZE = 100; 

PC CORR~TBL = GET AEM(.PC_CORR SIZE); 

NUM_SRC“DSTS = 0; 

she ORR SIZE © 100; a sae_cone $1ZE) 
= e $ 

PCTBL_BASE = Ix SPFFFFTES 5 id 


itialize the lexical nesting stack to have one entry pointing to the 
Module RST Entry. 


TI 
T 


NG = F 
STACKLO) = .MODRSTPTR; 


Initialize the break address nesting stack. 


NESTING BREAK = F 
NEST_BREAK_STACKCO) = 0; 


! Initialize the record and variant nesting stack to be empty and initialize 
! the variables which keep track of record and variant components. 


WYPTRET SIGE 
= Q; 
ENUA_LST_PTR = b: 


! Initialize the BUILD_TYPE_TABLE pet f This flag tells us whether we have 
! encountered any record types, for which we have to build a type 

! reference table. Avoiding the build of this table saves us some loops 

: over the RST at the end. 


BUILD_TYPE_TABLE = FALSE; 


' Now loop over the whole DST for this module. for each DST record we find, 
' we build the eperepr tate RST record and Link all such records on the mod- 
: yee symbol chain. Each such symbol is also inserted in the RST Hash 

+ e. 


WHILE TRUE DO 
BEGIN 


! If the user entered Control-Y¥ DEBUG, we signal our way out to abort 
the current command. The error handler does the necessary cleanup. 
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3 14 1 ¢ SABORT_ON_CONTROL_Y; $ 
i 1 : 
; tip } ef } Initialize flags for this DST record and get the DST record type. : 
: 1461 1565 NEWENT FLAG = FALSE; : 
8 1208 1 $6 NEST_FCAG = FALSE; $ 
> 144 1 UNNEST FLAG = FALSE; ; 
> 1664 1 68 DST_TYPE = DSTSK_MODBEG; ; 
3 1667 : $3 = LSSU .DST END_ADDR : 
; 12? i r DST_TYPE = .DSTPTRCDSTSB_TYPE); 3 
: 1649 157 ; 
3; 1450 1574 ! Merge this DST record with its Continuation DST records (if any) and : 
: 102) ' 2 } set a flag if any continuation DST records have been seen. : 
: 1458 1 1 MERGE_CONTINUATION_DST( DSTPTR, NEXT_DSTPTR ) : 
: 1498 1378 CONTINUATION_DST_SEEN = TRUE; 
: 1289 1581 DSTPTR_TO_SAVE = .DSTPTR; ; 
3; 1458 15 ¢ 3 
3 1459 15 $ 
: Hrs ¢ 1258 : Now handle each type of DST record individually. : 
; 146 1386 CASE .DST_TYPE FROM 0 TO 255 OF F 
> 1664 1588 F 
3: 1465 1589 3 
3: 1466 1590 ' Handle the Module-Begin record. Since the Module-End record seems § 
3 re 14 133) to be missing, we signal an error and terminate the DST scan. ; 
> 1469 1398 {DST$K_MODBEG): F 
3: 1470 1594 4 N F 
3 1479 1336 ; 7 repeanetatatanae 1, .MODNAMEPTR); : 
: 147 159 END; F 
: 1474 159 3 
3 1475 1399 é 
3 1678 1600 ! Handle the Module-End record. Terminate the DST scan normally 3 
3 1¢7 Het after checking that the nesting level is down to 1. : 
: 1479 16 5 ; {osT$K MODEND]: 3 
+ 1481 1605 4 IF .NESTING NEQ 0 OR .NESTING_BREAK NEQ 0 F 
3 14 ¢ 1606 4 TH 3 
3 14 1607 4 SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); $ 
; i¢ : 1608 4 ExTTLOGP; ; 
: 14 1610 : ; 
3; 14 161 3 
; 168s a ' Handle the Version record. This record gives the version number 3 
3 168) 161 ! of the compiler that gqnerared the current module. If this is a 3 
3 14 1614 ' PL/I module and ? Version DST record is present, we clear the : 
3 1491 1615 ' “old PL/I] flag’ in the Module RST Entry. (This is the flag that 3 
3; 1492 1616 ' tells us to compensate for the incorrect symbol descriptors gene- 3 
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3 1493 1917 ; ! rated by old versions of the PL/I compiler.) 3 
3 1496 161 ! $ 
; 1495 1818 {DSTSK_VERSION): ; 
3 1039 1 4 N 3 
; 122 1? 1 2 i cRODRSTPTRERSTSB_LANGUAGE 3 EQL DBGSK_PLI : 
; 1638 16 5 é MODRSTPTRERSTSV_OLDPLIFLAG] = FALSE; : 
: 1501 1625 END; : 
3; 150 16 3 
3 1 08 16 $ 3 
3 i 1628 ' Handle the PSECT record. Enter it in the synbot table only if ; 
3 ; 5 ys 2 } the language is MACRO. Also make a Static Address Table entry. : 
: 1307 1631 {DST$k_PSECT): | ; 
; 1508 16 § 4 BEGIN PF 
3; 1509 16 4 If .MODRSTPTRCRSTSB_LANGUAGE) EQL DBGS$K_MACRO H 
: 38iy i é THEN EGIN | i § 
: 1312 1636 ; ; 
3; 151 16 $ 
3; 15146 1638 : ! See if there already is a label with the same name as the 3 
3 1515 1639 ! PSECT mame (PSECTs are always declared last in MACRO). If a 
; 1218 So ; } so, do not build a Label RST Entry for the PSECT. : 
: 1518 1648 NAMEPTR = DBGSGET_DST_NAME(.DSTPTR); : 
3 13 164 H DBGSHASH FIND_SETOP( .RAMEPTR) ; F 
3 1? ? 1968 2 WHILE TROE DO : 
: 15 é 1646 6 RSTPTR = DBGSHASH_FIND(.NAMEPTR) ; F 3 
1854 1808 
: 1525 1865 6 ! If there is no previous definition for the PSECT name, : $ 
3; 15 $ 1650 6 ! make a Label RST Entry for it. Also make a Static 3 
: 3 1637 ? Address Table entry. : 
; 13 5 1688 if gRSTPTR EQL 0 : 
> 1531 1655 EGIN : 
3; 15 § 1936 7 RSTPTR = bestest MEMORY (RSTSK_LBLENTSIZ); 3 ¢ 
3 15 165 7 RSTPTRCRST B_KINDJ = R TSK_LABEL; 3 
3 15 1658 7 RSTPTRCRSTSL_STARTADDR) = -DSTPTRCDSTSL_PSECT_VALUE): : 
3; 1535 1659 7 NEWENT_FLAG = : 3 
: 13 1660 ? PPTR ="DSTPTRCDSTSA_PSECT_TRLR_ BASE) : 
3 1 1661 7 + ,OSTPTRCLDSTSB_PSE T_TRLR_OFFS); é 
: 15 1668 7 LENGTH = .PPTREDSTSL pSeCT SIZE ; : 
3 15 166 7 RSTPTRCR V_NONZLENGTH) =" TRUE; : 
3; 1540 1664 7 STATIC ADDRESS(.RSTPTRERSTSL_STARTADDR] -LENGTH, s 
3 1541 1665 7 /RSTPTR, MODRSTPTRERSTSL_SAT_PTRJ, FALSE); : 
1808 1687 2 beset 
iii 68 | 
: 1368 1690 6 ! If there already is a definition for the PSECT name in : 
3 154 1671 6 !' the current scope (i.e., the user defined a label bg 3 
; 1268 1076 6 ! the same name), exit the name search loop without 3 
3; 154 1675 6 ! making a Label RST Entry for the PSECT. é 
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ir -RSTPTRCRSTSL_UPSCOPEPTR] EQL .NEST_STACKC.NESTING) 
EXITLOOP; 
END; ! End of Hash Table search loop 
END; ! End of Language = MACRO if statement 


Handle the Line Number/PC Correlation Table record. Here we save 
its address in a temporary buffer. It will later be moved to a 
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DOGSREL AERORYT ROD SRC_T8L); 


SRC_CORR_TBLC.NUM SRC_DSTS] = .DOSTPIR; 
BUR SRC DST = .NOM_SRC_DSTS + 1; 


BERes 
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5 1 6 : 

3 1 6 : 

3 1 6 $ 

3 1 6 é 

3 1 3 

5 1 F 

3 1 3 

3 1 4 : 

3 1 4 F 

r 1 3 

3 1 $ 

3 1 3 

3 \ 3 

; 1 ' special table pointed to the Module RST Entry. Note that we $ 

$ 12 expand the buffer which holds the DST pointers if it overflows. : 

3 16 CLOSTSK_LINE_NUM, 3 : 

; 1568 16 DSTSK-LINE_NUM_REL_R11): 3 ¢ 

3 34 16 4 BEGIN 34 

; 1570 16 4 IF .NUM_PC_TBLS GEQ .PC_CORR_SIZE $4 

; 33 18 ¢ THEN GIN ; g 

: 258 169 MOD_PC_TBL = .PC_CORR_TBL; 3 4 

; 1574 1698 PC_CORR_SIZE = .PC_CORR SIZE + 100; ; é 

3; 1575 1699 PC"CORR-TBL = DBGSGET_MEMORY(.PC CORR_SIZE); $ 

: 576 1700 3 CHSMOVET4®.NUM_PC_TBLS, .MOD_PC_TBL, -PC_CORR_TBL); 3 ¢ 

3 157 1701 DBGSREL_MEMORYT.MOD_PC_TBL); 3 2 

Be ime = : 

: 1580 1704 4 PC_CORR_TBLC.NUM_PC_TBLS] = .DSTPTR; : e 

; 381 1508 4 NUM_PC_TBLS = .NOM_PC_TBLS + 1; 3 ¢ 
5 17 END 2 

+ ee : 

3; 1585 1709 ' Handle the Source Line Correlation record. Here we save its 3 § 

3; 15 1710 ' address in a tengorary buffer. It will later be moved into a 3 

3; 15 1711 ' special table pointed to by the Module RST Entry, Note that we $ 

3 +3 rig } expand the buffer which holds the DST pointers if it overflows. 3 

3 396 at, i CDSTSK SOURCE): 3 § 

3 206 iris 4 IF .NUM_SRC_DSTS GEQ .SRC_CORR_SIZE $4 

; a7 14 4 THEN 3 

3; 1595 1719 MOD_SRC_TBL = .SRC_CORR TBL; é 

; 5% 1720 SRC“CORR_SIZE = .SRC_CORR SIZE + 100; ; 

3; 159 1721 SRC”CORR-TBL = DBGSGET_MEMORY(.SRC CORR_SIZE); é 

; 1598 17 § CHSMOVE (S¢ .NUM_SRC_DSTS, D_SRC_TBL, TSRC_CORR_TBL); : 

; 1599 17 3 

: 1724 & : 

; 1725 4 3 4 

3 17 $ & 2 ¢ 

; 17 4 3 

3 17 3 3 ‘ 

3 17 a4 

3 1730 3 
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$3 
= 35 


! Handle the Routine-Begin record. Create the Routine RST — and 

! make @ NEST STACK Tr so we know when the matching Rout ne-En 

} record is found (except that MACRO has no Routine-End records). 

CDSTSK_RTNBEG): 
peti GSGET MEMO 

= 

RSTPTR RSTSO FINDS = 
RSTPTRURST te ead g 
RSTPTRLRSTSL_ENDADDR T 

IF .NESTING_BREAK GEQ MAX T 
SIGNAL (DBGS_DSTNESDEP, 1, .MODNAMEPTR) ; 

Language MACRO does not have routine end dst record. 

if ;MODRSTPTRERSTSB_LANGUAGE J NEQ DBGSK_MACRO 
NESTING_BREAK = .NESTING_BREAK + 1; 


NEST BREAK _STACKC NESTING BREAK] = .RSTPTR; 
IF .BSTPTREDSTSV_RTNBEG_NO_CALL 


N 
RSTPTRCRSTSL_BREAKADDR) = .RSTPTRERSTSL_STARTADDR) 


RY(R OUTENTSIZ); 

STS y INE § 

RJ) = - TRCDSTSL_RTNBEG_ADDRESS); 
= as CRSTSL STARTADOR); 


—> —) + ss 9) 2 2 4 2 


ELSE 
RSTPTRCRSTSL_BREAKADDR] = .RSTPTRCRSTSL_STARTADDR] + 2; 


NEWENT_FLAG = TRUE; 
IF .PCTBL_BASE GTR .DSTPTRCDSTSL_RTNBEG_ADDRESS) 


N 
PCTBL_BASE = .DSTPTRCDSTSL_RTNBEG_ADDRESS); 
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39 
oy ee IF .MODRSTPTRCRSTSB_LANGUAGE] EQL DBGSK_MACRO 
4 | $8 STATIC_ADDRESS( .RSTPTRCRSTSL boy) hee rt Be 0, .RSTPTR 
64 6 MODRSTPTRERSTSL_SAT_PTRJ, FALSES | 
644 68 LSE 
645 69 NEST_FLAG = TRUE; 
O66 0 
yt 4 re END; 
649 7 
650 74 ' Handle the Routine-End record. Compute the routine end address, 
651 75 ' add it to the Routine RST Entry, make a Static Address Table 
636 6 entry, and pop NEST_STACK. 
636 28 {DSTSK_RTNEND): 
636 0 NESTING _BREAK = .NESTING BREAK = 1; 
65 1 RSTPTR = .NEST STACKC NESTING): 
698 : IF -RSTPTRERSTSB_KINDJ NEQ RST$K_ROUTINE 
o90 ¢ SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 
666 LENGTH = .DSTPTRCDSTSL_RTNEND_ SIZE); 
66 IF .LENGTH LSS 1 THEN CENGTH = 1; 
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L 
MODRSTPTRCRSTSL_SAT_PTRJ, FALSE); 


-000 -Sep-1 DEBUG. SRCIRSTCNTRL .B32;2 (10) 
664 7? RSTPTRERSTSL_ENDADDR] = .RSTPTRCRSTSL_STARTADDR] + .LENGTH = 1; A 

665 ? RSTPTRLRSTSV MONTES WOT Hd = TRUE; 

$08 f STATIC_ADDRESS( .RSTPTRERSTSL_STARTADDRI, .LENGTH, .RSTPTR, 


UNNEST_FLAG = TRUE; 
END; 


SSO 


QS. 
oO 
VEWN—OO@ 


en 

67 9 

ore ' Handle the Lexical Block-Begin record. Create the Lexical Block 
of? } RST Entry and push the block on NEST_STACK. 

675 {DSTSK_BLKBEG): 

o78 BEGIN 

67 RSTPTR = besser t MEMORY (RSTSK_LEXENTSIZ); 

ers RSTPTRCRSTS$SB_K 


KING) = RSTSK BLOCK: 
RSTPTRERSTSL_STARTADDR] = <DSTP 

RSTPTRERSTSL_ENDADDR) = .RSTPTR 
EWENT F = TRUE; 


NEST_FCAG = TRUE; 
END; 


TRCDSTSL_BLKBEG_ADDRESS); 
CRSTSL_STARTADDR); 
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' Handle the Lexical Block-End record. Compute the block's end ad- 
! dress, add it to the RST entry, make a Static Address Table entry, 
and pop NEST_STACK. 


{DST$K_BLKEND): 
BEGIN 


RSTPTR = .NEST_STACKC.NESTING); 
IF .RSTPTRCRSTSB_KIND) NEQ RST$K_BLOCK 


SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 
LENGTH =. DSTPTRCDSTSL BLKEND_S1ZEI; 
IF LENGTH LS HEN CENGTH = 1; 
RSTPTRERSTSL_ENDADDR] = .RSTPTRCRSTSL_STARTADDR] + .LENGTH - 1; | 
RSTPTRERSTSV-NONZLENGTH) = 


NZLENGTH 
STATIC_ADDRESS(.RSTPTRERSTSL_STARTADDR], .LENGTH, .RSTPTR, 

MODRSTPTRERSTSL_SAT_PTR]. FALSE); 
UNNEST_FLAG = TRUE; 
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Handle the Prolog record. aa Prolog DST record specifies the 
address of the first instruction after the current routine's 
prolog code. i.e. after the code needed to set up descriptors, 
nitialize the stack, and so on. A routine brea gerne is set at 
the prolog address for any routine that has a Prolog DST record. 


DSTSK pROLos): 


RSTIPTR = NEST BREAK, STACKC NESTING BREAK; 
IF .RSTPTR NEQ 


HEN 
oa RSTPTRCRSTSL_BREAKADDR] = .DSTPTRCDSTS$L_PROLOG_BKPT_ADDR); 
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Handle the Static Link record. Just put a pointer to this DST 
record in the Routine RST Entry curronsty on top of the nesting 
stack. If the top of the nesting stack is not a routine, signal 
an error. 

DSTSK  aceetammea 


RSTPTR = NEST STACKC NESTING); 
a -RSTPTRCRSTSB KINDS NEQ RSTS$K_ROUTINE 


N SIGNAL (DBGS. INCDSTNES, 1, .MODNAMEPTR); 
RSTPTRCRSTSL_STATIC LINK] = .DSTPTR; 
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' Handle the Label record. Create a Label RST Entry for it and make 
a Static Address Table entry. 


CoST$K LABELJ: 


Sa i in in Mi nn, i i Bin. i, i i | 
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RETPTR = BUILD_LABEL_RST( .DSTPTR) 

DSTPTR 10, AVE . piRe TEI RERSTSL DStPTRI: 
RSTPTAERST asts K_LABEL; 

RSTPTRCRSTSL~ ETO) ee “DSTPTRCDSTSL_VALUEJ; 
NEWENT_FLAG = TRUE; 
STATIC-ADDRESS(.RSTPTRCRSTSL_STARTADDRI, .RSTPT 


i MODRSTPTRERSTSL_ + sht _PTRI, FALSE): 


' Handle the Label-or-Literal record. If this is an instruction 

' Label, create a Label RST Entry and a Static Address Table entry. 
i if this is @ literal, create a Date item RST Entry for it. 
CDSTSK_LBLORLIT): 


i age strrates rea, VFLAGS) EQL 1 
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60 
61 BEGIN 
6 RSTPTR = BUILD LABEL RST( .DSTPTR) ; 
76 DSTPTR_TO SAVE RSTPIR RSTSL_DSTPTRI: 
764 RSTPTRERST + ND} = RST K_LABEL; 
765 RSTPTRERSTSL ~ETARTADDR = DSTPTRCDSTSI VA VALUE); 
766 STATIC_ADDRESS( .RSTPTRCRSTSL STARTAD -RSTPTR 
76 MODRSTPTRERSTSL_SAT “perky ROLES: 
768 END 
190 ELSE 
771 BEGIN 
178 RSTPT bBG GET MEMORY (RSTSK_DATENTSIZ); 
77 RSTPTRCRST$B_KIND) = RST $k DATA; 
= V3 
77% RSTPTRERSTSL_TYPEPTR 
70 D; 
77 NEWENT_FLAG = TRUE; 
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! Handle the Entry-Point record. Create an Entry-Point RST Entry 
for it and make a Static Address Table entry. 


{DSTSK_ENTRY): 


RSTPTR = DBGSGET_MEMORY(RSTSK_EPTENTSIZ); 

1 RSTPTRERSTSB_KIND) = RSTSK_ENTRY; 

1 RSTPTRERSTSL-STARTADDR) = DSTPIRCDSTSL pYALUEI; 

1 NEST_BREAK STACKC NESTING BREAK] = RTP 

SMa ree =” RSTPTRERSTSL " STARTADDRI + 2; 

1 STATIC-ADDRESS(. RUE tPTRERSTSL STARTADDRI, .RSTPTR 

1 MODRSTPTRERSTSi__ mt: PTR], FALSE); 
; END; 


Handle the Record-Begin record. Generate a Data Item RST Entry 


39 ; 
798 ! for the record unless this is just a Type definition. Then stack 
799 ' the information which keeps track of the currently open record 
rs ! definition (if any) and set up the same information for this new 
1 record. 
: {DST$K_RECBEG): 
¢ BEGIN 
! Set the flag saying we have to b jt¢ the Type Reference 
' Table. We always have to build this table in the presence 


: of records. 
BUILD_TYPE_TABLE = TRUE; 


WN — 8 OONOAUS WN “OC OONOUS WO 


Generate a Data Item RST Entry if this is a data record defin- 
! ition (not just a Type definition). 


' 
i 
i 
if. -DSTPTRCDSTSB_VFLAGS) NEQ DSTSK_VFLAGS_NOVAL 


DODOODOODODODODOOODODDODOODDODODODOODNOO0O 


Saat ny ee ete ab a oe a eh N ghee 4 


me a a a mk a kk ek a a a a et a st = = 1 2 — — 
> se tt tt 


ee ee a ee a a a a ee ee ee a a a ee a a a ee ee 
DNA AAA WMT BE BEBE EEE EEE EF FWA BOB BPP EE BE PUA 


x fr 

a4g BEGIN 

94 RSTPTR = p GSGET RERORY (RSTSK DATENTSIZ); 

946 RSTPTR RST FIND) . TA; 

945 RSTP RERSTSL-TY bi si3r 

946 RSTPT ir RSTSV~ “serey Pris = TRUE: 

9% NEWENT FLAG = TROE; 

948 IF “COMP_LST_ PTR EQL 0 

94 THEN 

950 BEGIN 

951 STATIC_CHECK(.DSTPTR, ADDRESS, LENGTH, STATIC_FLAG); 
9 ; IF .STATIC_FLAG 

9 THEN 

954 BEGIN 

955 IF .LENGTH NEQ 0 THEN RSTPTRCRSTSV_NONZLENGTH) = TRUE; 
9 6 STATIC_ADDRESS(- ADDRESS LENGTH, TRSTPTR 

997 ca MODRSTPTRERSTSL_SAT_PTRJ, FALSE); 


Handle the Record-End record. Here we create the Data Type RST 
Entry for the record type. We then pop the record stack to re- 
store the context for any outer record definition. 


LDSTSK RECEND]: | 
IF .VAR_REC_PTR NEG 0 | 


. SIGNAL(DBGS_INCDSTNES, 1, .MODNAMEPTR); | 


lo 


: Build the Data Type RST Entry for the record type. 
TYP_RST_SIZE = .TYP_RST SIZE + .COMP_LST_PTRLO); 
RSTPTR = TYP_RST_SIZE); 


$k_TYPE RECORD: 
S1SB_ NAME) + 1°¢ .REC DSTPTRCDSTSB_NAME]; 
RECBEGTRLRCDSTSL_RECBEG_ SIZE ; 


H 11 
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-000 19-308-1 382 95:33:5) DEBUG. SRCIRSTCENTRi .B 3222 9 483 vo 
195 
ig eo 
1 ELSE 
1 COMP_LIST_ADD_ENTRY(COMP_LST_PTR,COMP_LST_SIZE,.RSTPTR); 
1965 END; 
: i 
4 196 ! Stack the variables which keep track of the current record 
5 139 ! definition (if any). Then set these variables up to keep 
§ 130 } track of this new record definition. 
197 if .RSPTR GEQ MAX_NESTING | 
§ 1398 THEN 7 | 
20 197% SIGNAL (DBG$_DSTNESDEP, 1, .MODNAMEPTR); | 
3g 197% RECSTACKC.RSPTR, RS_CLPTR] = .COMP_LST_PTR;: | 
5 197 RECSTACKE.RSPTR, RS-CLSIZ] = .COMP"LST-SIZE; 
54 1978 RECSTACKE.RSPTR, RS-RCOST] = .REC_OSTPTR: 
os 19 RECSTACKE.RSPTR, RS-VRPTR] = .VAR-REC_PTR: 
36 19 RECSTACKL.RSPTR, RS-TRSIZ) = .TYPTRST-SIZE; 
5 1981 RSPTR = , + 1: 
58 19 : COMP_LST_PTR = DBGSGET_MEMORY(11); | 
59 19 COMP“LST = 10; 
19 REC_BSTPTR = .DSTPTR; | 
1 1985 VAR-REC_PTR = 0; 
: 19 TYP-RST-SIZE = RSTSK_TYPENTSIZ; | 
198 END; | 
19 
S 1 
866 1 
1 
1 
9 1 
0 1 
iBsg 
"i 
7% 1 
75 1 
7 
7 
78 
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DSTPTR_TO_S 
NEWENT"FLAG 


ed et ed od 
MEM 


' Now copy all component and variant set lists into the Type RST 
' Entry’s memory block after the RST eotey proper This is done 
! by a call on recursive routine COPY_COMP_LIST. 


me a ed tk a ed ot a = 2 ts td 
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#2 
e3 
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TYPRSTPTR = .RSTPT 
TYPRSTLOC = astrrachst =}YRCOMPCHTI: 
COPY_COMP_LIST(.COMP_LST- 


Oo 
win 
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! Pop the record stack so we continue the accumulation of record 
components at the next outer level of record nesting (if any). 


tg AD THEN SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR) ; 


F. 
SMP. = 
T_PTR = =REESTACEL RSPTR, RS $ CLPTR}; 
“SIZE = 5: 


RECSTACKL.R I 
TR = .RECSTACKL RSPTe g Repsts: 
PTR = .RECSTACKL.R am Ree ReRPTRI: 
SIZE = MpeestacKt. scprk. RS_TRSIZ); 


SSeS REN SSSESESE 


GOOG OCCOCOOCCOOCOOOOOOoOOO 


3 3 4 a 
3 3 4 : 
3 1 4 $ 
3 1 4 $ 
3 3 4 $ 
3 1 4 $ 
3 1 4 $ 
3 1 4 : 
2: 4 : 
3 1 4 $ 
3; 1 & $ 
3 7 & $ 
3 1 4 $ 
3 3 4 3 
3 3 4 2) 
3 6 : 
3 ; : 
> 1910 4 
3 1911 ! Handle the Variant-Set Begin record. This signals the start of a : 
3 131¢ 0 ' set of variants of the current record which all have the same tag F 
3; 191 . ! variable (though the tag ver tebe need not be materialized). Here F 
3; 1914 : e. find the tag variable and build a Variant RST Entry. We then : 
3; 1915 !s @ new component List to accumulate the individual verlents : 
3 bat ? ys this variant set. : 
; 1918 O4¢ {DSTSK_VARBEG): : 
3; 191 4 BEGIN 3 
3; 1920 4 4 IF .COMP_LST_PTR EQL 0 3 
3: 1921 5 4 THEN 3 
3 1956 § é SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 2 
3 1924 4 | 3 
3; 1925 8 4 : poseranye the address of the RST sate of the variant set's ; 
3; 19 $ 50 4 : tag variable if present. We do this searching the already F 
3; 19 051 4 : joc tag record components for a symbol with the desired DST 3 
3 1% ; 26 ? ; poi nter. : 
: 19 az 4 VARBEG_DSTPTR = ST STS ag NAME) + -DSTPTRE ‘te NAME); | 3 
3 1931 5 4 TAGDSTPTR = VARBEG_DSTPTR BSTSi VARBEG. TAG_PTR 3, 
3 19 § § 4 TAGRSTPTR = | 3 
3 13 H ri ce giAGDSTPTR: NEQ 0 : 
3; 1935 35 “eEGIN 3 
3 19 AGDSTPTR = DBGSRST DST _PTR( oe + .DSTSBEGIN_ADOR ); ' m0. 3 
3; 19 1 INCR J] FROM 1 TO .COmP_CST_P PTRLO 3 
3; 19 § 2 BEGIN 3 
3 19 RSTPTR = .C erh ost {) 3 
+ 1940 6 IF (.RSTPTRERST ostera bor sJAGDSTPTR) AND : 
3 H+} 5 — RSTS$B_KIND) EQL RSTSK DATA) : 
: 198 § BEGIN : 
3 19646 7 TAGRSTPTR = .RSTPTR; 3 
3 1362 7 BxiTLooP; : 
3 1949 A é : 
3 1948 72 END; é 
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e; 


PLRPIA EL 


- ow oe EQL 0 
SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 
END; 


NAN EU 
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: Build a Variant RST Sater tor thie variant set. This entry is 
temporary in the sense that it w tt eventually be copied into 
i the Type "ast Entry for the containing record data type. 


ASTPTR - pecseer REBORY (RS TSK VARENTSIZ); 
RSTPTRERSTSL_DSTPTR] = .OSTPT 

RSTPTR RSTSL “VARTAGPTRI” x -TAGRSTPTR; 

RSTPTRERST$B KIND ANT 

COMP _ cist "ADB ENTRYCCOMP. ist. PTR, tomp_ LST_SIZE, .RSTPTR); 


b>. ODOODDO0000 
wn 
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! Push the current component List pointer and size on the 
i record stack and set up @ new component List for the 
varient set. 


= 4 
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9 

97 

97 iF -RSPTR EQL MAX_NESTING 

976 SIGNAL (DBGS_DSTNESDEP, 1, .MODNAMEPTR); 
976 RECSTACKC.RSPTR, RS_CLPTR] = .COMP_LST_PTR; 
97 RECSTACKE.RSPTR, RS-CLSIZ) = .COMP-LST-SIZE; 
978 RECSTACKE.RSPTR, RS “VRPTR) = .VAR_REC_PTR; 
9 RSPTR = .RSPTR 

9 COMP_LST_PTR = be cet _MEMORY(11); 

9 COMPS LST"SI2 

3 R_REC_PTR = asihte 

9 


FERSE 


VARTANT VALUE FOUND = * FALSE: 


' Handle the Variant-Set End record. Close out the component List 
' of the last variant in the variant set, and then close out the 
: whole set. 
{DSTSK_VAREND): 
IF .VAR_REC_PTR EQL 0 


SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR) ; 


em dk ke a ik ak tk et a = a 2 a Ls — + 
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! Pop the record stack and gut the address of the last variant's 
component List on the variant set List. 


if .VARIANT_VALUE_FOUND 
THEN 
BEGIN 


TYP_RST_SIZE = .TYP_RST_SIZE + 1 + .COMP_LST_PTR(O); 
RSTPTR = .COMP_LST_PTR; 


Be Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Be Se Ge Ge Se Ge Se Se Ge Se Se Se Se Se Ge Se Se Se Ge SF SF Se Ge Se Se Se SH Se Se Ge FH SH Ss Se Ge Sere Stee 
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3 1 RSPTR = .RSPTR = 1; 

; 1 IF .RSPTR bea O THEN SICNAL(DBGS_INCDSTNES, 1, .MODNAMEPTR); 
3 1 COMP_LST_PTR = .RECSTACK. RSPTR, RS_CLPTRI: 

; 1 COMP“LST“SIZE = .RECSTACKL.RSPTR, RS_CLSIZ); 

: 201 1 COMP-LIST_ADD_ENTRY(COMP_LST_PTR, COMP_LST_SIZE, .RSTPTR); 

: 12 | 5 2 END; 

: 201 137 4 

3 16 1 3 4 ! Then close out the fyrrenc variant set by saving the address 

3; 2015 1 4 ! of the variant set List in the temporary Var ant RST Entry. 

3 1 re 4 ! Then pop the record stack to continue accumulating record 

: ; 12) 2 ; components for the outer level record definition. 

3; 201 148 4 VARIANT _VALUE_FOUND = TRUE; 

3 2020 144 4 TYP_RST“S1 = .TYP_RST site + RSTSK_VARENTSIZ + .COMP_LST_PTRCO); 
: 2021 145 4 VAR-REC-PTR Rstét SYMCHAPTR] = .COMP-LST PTR; 

; ¢ 146 4 IF TRSPTR LEQ 0 TREN SIGNAL(DBGS$_INCDSTNES, 1, .MODNAMEPTR); 

3 ; 147 & RSPTR = .RSPTR = 1; 

3 4 108 4 COMP_LST_PTR = eRECSTACKE RSPTR, RS_CLPTRI; 

3 2025 149 4 COMP"LST“SIZE = sRECSTACKE .RSPTR RS cLsiz3; 

: 2026 150 4 VAR_REC_PTR = .RECSTACKL.RSPTR, RS_VRPTRI; 

3 : i : 2 END; 

3 2029 1 

3; 20 154 ! Handle the Variant-Value record. This record defines a new vari- 
; 1 155 ! ant of the current record and the corresponding tag value. Close 
3 § 1 § ! out the previous variant (if any) and set things up to accumulate 
: 2 : the components of this new variant. 

: 20 5 139 : {DST$K_VARVAL): 

3; 20 18¢ : IF .VAR_REC_PTR EQL 0 THEN SIGNAL (DBGS_INCDSTNES,1,.MODNAMEPTR) ; 
; 163 4 

3 039 164 4 ! Unless this is the first variant, pop the record stack and put 
3; 2061 165 4 ! the address of the last variant’s component List on the vari- 
3 048 166 ? ant set List. 

> 2044 168 4 IF .VARIANT_VALUE_FOUND 

: $ote 199 $ og Oh Ss 

; ; 171 TYP_RST_SIZE = .TYP_RST_SIZE + 1 + .COMP_LST_PTRO); 

3 2068 17 RSTPTR = .COMP_LST_PTR; 

: 9 17 RSPTR = .RSPTR = 1; 

3; 2050 174 IF .RSPTR LEQ 0 THEN SIGHAL (DOES _ ICES INES 1, .MODNAMEPTR); 
: 1 175 COMP_LST_PTR = .RECSTACKC,RSPTR, RS_CLPTRI: 

: ; 17% COMP"LST"SIZE = .RECSTACKL.RSPTR, RS_CLSIZ); 

; 17 COMP“LIST_ADD_ENTRY(COMP_LST_PTR. COMP_LST_SIZE, .RSTPTR); 

; i 9 6 <n 

: 180 4 

: $ 1 4 ! Then set things up to accumulate the Conpanents of the new 

3 28 1 § 4 ! variant definition. Push the tag value DST pointer on the 

3 5 j 4 ' current variant Compqnent list. push the record stack, and 

; : ' : ? set up @ component List for the new variant. 

; 2 1 4 VARIANT_VALUE_FOUND = TRUE; 
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OmMP ST_ADD_ENTRY( Pp T PTR, T » «DSTPTR); 
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SIGNAL (DBGS_DSTNESDEP, 1, .MODNAMEPTR) ; 


RECSTACKE.R -RSPIR, RS_CLPTR] = .COMP_LST_PTR: 
RECSTAC » RS-CLSIZ) = .COMPILST“SIZE; 
RSPTR =. ASPTR 1;° 

COMP LST PTR. = Seukcer, MEMORY (11); 

COMP “LST"S1Z 


‘ ~ geo the Suumeret ten Type Begin record. Set up the accumulation 


of the enumerat 


on type elements. 


{DSTSK_ENUMBEG): 


ess 3 


wr 


' Handle the Enumeration Type Element recor 
: type 


w 


! Set the flag saying that we have to build a Type Reference 
i Table. (I'm not sure whether this eheoiutely as to be done 
for enumeration types. It does have to be done for records). 


BUILD_TYPE_TABLE = TRUE; 


ir ERS Pe NEQ 0 
SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR) ; 
TPTR = .DSTPTR 


SIZE = .DSTPTACDSTSB. ENUMBEG LENG); 
BTR DaGSGET. MEMORT(11); 
= 


= 


¢: Build a Data Item RST 
i onet & for the element (it constitutes a t teral of the enumeration 
Also add the element to the type’s element List. 


tostsk ENUMELT): 


RE HSGS NO EW HOODIA NEW HODR UENO LOL NER OO ODEO 


were ee eS Se SNe ee ee ee er tt tt te ee ee ee ee ee ee ee 
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erre 


EGI 
IF ENUM_LST_PTR EOL 0 
SIGNAL(DBG$_INCDSTNES, 1, .MODNAMEPTR); 
RSTPTR = DBGSGET RERORY (RSTSK DATENTSIZ); 
RSTPTRER 8KIND) = K_DATA: 
RSI res 


RSTPTR TYPEPTR he DSTPTR; 


maverace ser TYPEPTR = TRUE; 
ROE: 


ert MADD. ENTRYCENUM_LST_PTR, ENUM_LST_SIZE, .RSTPTR); 
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Handle the Enumeration izre End record. Build the Data Type RST 
entry for the enumeration type and —_ ”, ghenent List as 
the type’s ‘‘component™ List. Then clea ENUA LS PTR to ind cate 
that we are no longer accumulating enumeret on eyBe elements. 
ott sale 
EMU _LST PTR EQL 0 
SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 


RSTPTR = Tee.KIN penony costee TYPENTSIZ + .ENUM_LST_PTR(O)); 
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RSTPTR RSI KIND) = RSTSK_TYPE: 
RSTPTR FCODE) = RSTER ty PE_ENUM; 

RSTPTR nStst “BITSIZE) = gENOR. "BITSIZE: 

DSTPTR_TO_SAVE = .ENUM_DSTPT 


NEWENT -}0;8 = TRUE; 
RETPTRERST L_TYPCOMPCNT) = agin rh" PTR(O): 
ENUMELT = RSTP PTR RSTSA_TYP 
INCR it ERO 17 0, ENUR (st ore bo 
LTC.1 - 1) = TENUA_LST OTR 1): 


DBGSREL_MEMORY( .ENUM_LST_PTR); 
ENUM_LST_PTR = 0; 


WR O OONG VF" OOODNOAUE 


Handle att Data Symbol records. This includes Boolean records and 
Separate Type Spec records. Create a Data Item RST Entry for the 

gate seats and make a Static Aadreen Table entry if the data item 
$ static. 


S$K_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST, 


{osc 

ST$K-B00 

STSK~SEPTYP): 
BEG! 


[on ee ee te ee 


> ee ee PUPAE ££ 
MON ISSE USAT EROS $ 


Build the Data Item RST Entry. 


RSTPTR = spp oeGeT RERORY (RS TSK DATENTSI2); 
RSTPTRCRST$B_KIND) = RSTSK_DATA; 
RSTPTRERSTSL_TYPEP Ptr) y 
NEWENT_FLAG = TRUE; 


! If this is a ZEM data gst. and the name is pl RAST ERSADORESS™, 
i and ‘f contains » static address in the VALUE field, then 

i this is the epecte al OST put out by FORTRAN to tell us where 
the transfer address is. 
if 


(.DSTPTR DSTSB_TYPE) EQL DSCSK_DTYPE_ZEM) AN 
(-DSTP REDST$B-VFLAGS EQL TSK_VALRIND ” aDDRD AND 
CH EOL? DSTPTREDST$B_ 
‘ate 17, UPLITCZASCIC MTRANSFERSADDRESS*)) 


DBGSGL_TRANSFER_ADDRESS = .DSTPTRCDSTSL_VALUE); 


ee ee ee ee ee el ee ee ee ee ee eee ee eee Se SS 


NNNNNNNOOOO OD Pete te atta al al eal al al tal al ial tal oP ot oP af oP ot oP oP oe oe 
SINS SS SFR eS SSSSSF UNS SSNSESESES SES 
Pee ee et ee ee ee 


Re Ee 


<2 


STPTR, .MODNAMEPTR, TYPEPTR, ARRAY_FLAG); 
vPEPTAI = ,TYPEPTR: 


N11 
RSTCNTRL 16-Sep-1984 02:53:41 AX-11 Bliss-32 V4.0-742 Pa 9 RS 
=000 ea8ee=18Re 93:78:36 | ERGs BASRs Fe YR g $372 9 403 vi 
i 1 
7 4 ! If this is a DSTSK + pan record, see if the separate Type 
4 ' Spee cocore ultimately points to a record or enumeration tree 
5 ! definition. If so, set up the RSTSL_TYPEPTR field in the RST 
! entry. We also set RSTSV_MARKBIT if this is an array whose 
cell type is a record type. 
if ,DSTPTRLDSTSB_TYPE3 EQL DSTSK_SEPTYP 


nensToy SET yt th pa, = TRUE; 


SSSLESRENLESSLSEALATLS 


DERDERIAN) ct et a a hh dd od 


SOON VFS WN $9 OBOE WIN " OOONOUE WO 0@ 


01 ! If we are not nested in a record definition and if the data 
4 3 } item is static, make a Static Address Table entry. 

04 IF .COMP_LST_PTR EQL 0 

05 THEN 

5] BEGIN 

0 STATIC_CHECK(.DSTPTR, ADDRESS, LENGTH, STATIC_FLAG); 

08 IF .STATIC_FLAG 

09 THEN 

1 BEGIN 

1 IF .LENGTH NEQ 0 THEN RSTPTRCRSTSV_NONZLENGTH] = TRUE; 
1 STATIC_ADDRESS( ADDRESS LENGT «RSTPTR, 

1 MODRSTPTRERSTSL_SAT_PTRI, FALSE); 

; END; 

1 END 

1 ! If this is a record component, add the data item to the cur- 


' rent record's component List. We do not make a SAT entry for 
a record component (though we may have for the whole record). 


ELSE 


BBE ES & FAWN HII RPI NIPINIPININID 2 OO OO OO 


COMP_LIST_ADD_ENTRY(COMP_LST_PTR, COMP_LST_SIZE, .RSTPTR); 
END; 
' Handle the BLISS special cases record. Here we create a Data Item 
' RST aanry for the LIS> data item. We also make a Static Address 
Table entry if appropriate. 
CDST$K_BLI): 


Be Se Se So Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Be Ge Se Se Se Ge Ge Se Se Ge FH Se Ss Se Se Se Se Se Se Se Se Se Se Se FOS SHSe Ss Se Se Se SH Se ae 


SOP BE BB PVPS. PPPS BBS BS BE EIA AAMT BEEP LE. 


WN @=O ONO VE WIN —O CONOuUSWN oO 
NOUS WO OOO UE wn 


PUP PAPI 


_TYPE_TABLE~= TRUE; 
RSTPTRERSTSV_MARKBIT] = .ARRAY_FLAG; 
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-Sep-19 DEBUG. SRC TRL.B32;2 Vv 
5 4 BEGIN 
; 5 4 RSTPTR = besser! MEMORY (RSTSK_DATENTSIZ); 
; 4 RSTPTRERST KIND) = RSTSK_DATA; 
: 4 RSTPTRLRSTSL_TYPEPTR] = 0; 
; 3 4 NEWENT_FLAG = TRUE; 
; 4 STATIC-CHECK(.DSTPTR, ADDRESS, LENGTH, STATIC_FLAG); 
> 2240 4 IF .STATIC_FLAG 
; 2241 4 THEN 
; & BEGIN 
H & IF . LENGTH NEQ 0 THEN pit i Ug oeoegy Enete = TRUE; 
4 4G STATIC_ADDRESS(. ADDRESS nord STPT 
3 2245 HODRSTPTR Rstsi SAT _PfRJ, FALSE); 
3 4 4 END; 
8 4 4 
3; 2248 END; 
BS 
: 2251 ! Handle the BLISS field record. Just build a Data Item RST Entry. 
; 258 ; CosT$K BL.1FLD3: 
> 2255 4 RSTPTR = <Degscer MEMORY (RSTSK DATENTSIZ); 
4 2$ 4 RST orarati IN5) = K_DATA; 
3 5 4 RSTPTR RSTSee TI PEPTRI'® styK- 
g 58 4 NEWENT_FLAG = TRUE; 
: 59 END; 
: $504 
; $06 } Handle the COBOL special cases. Build a Data Item RST Entry. 
: 2264 {DST$K_COB_HACK): 
$ 65 4 BEGIN ~ 
; o8 4 SE TP TR = peeser ortttite DATENTSIZ); 
3 226 4 RSTPTRERST $B_KIND] = RSTSK_DATA; 
; 68 4 RSTPTR tie TYPEP TRI : " 
3 69 4 NEWENT _F LAG = TRUE; 
: 70 END; 
3 4 
: i ' Handle the COBOL Global Attribute record. Here we just set the 
: 2274 ! COBOL “‘global"* fla ag. his flag will og be set in the RST entry 
: 75 ' for the next wake to be defined in the DST. This attribute is 
; 1 needed to correctly emulate COBOL's scope rules. 
: 2278 {DST$k_COBOLGBL): 
: 2279 COBOLGBL_FLAG = TRUE; 
: 1 
3 4 Handle the Overloaded Symbol DST record. 
; 4 ; (DST$K_OVERLOAD): 
; 4 RSTPTR = D stent MEMORY (RSTSK_OLENTSIZ); 
; 4 RSTPTRCRST wd. = RSTSK OVERLOAD; 
: ; BeNENT_ FLAG = gi 
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NTRL.832;2 
H Handle type specs 
{DSTSK_TYPSPEC): 

BEGIN 


! Only create an RST entry and hash it in if this type spec 
has a name. 


If ,PSTPTREDSTSB_TYPSPEC_NAME] NEQ 0 
BEGIN 
Get a pointer to the type spec. 
TSPTR = .DSTPTRCDSTSB_TYPSPEC_NAME] + DSTPTRCDSTSB_TYPSPEC_NAME] + 1; 
Get memory and fill in the fields of the RST type entry 


$L_D DSTPTR: 
RSTPTR RSTSLUPSCOPEPTRI = ,RSTSSTART_ADDR; 
RSTPTRERST$SB_KIND) = RSTSK TYPE; 

RSTPTRCRSTSB_FCODE] = DBGSTRANS. TYPE_CODE(.TSPTRCDSTSB_TS_KIND]J); 


! Note = the code to fill in BITSIZE is commented out. 

! This is because the GET_BITSIZE_FROM_TYPESPEC routine 
may, in certain cases, Call DBGSSTA_VALSPEC to evaluate 

a descriptor to determine the size. If the valspec refers 

to any rogvetere. however, then VALSPEC will signal an 

error, and we cannot allow error signals in this 

initialization code. So we leave BITSIZE zero here. 

(This may affect the ‘'SIZE"’ operator in ADA). 


RSTPTRCRSTSL_BITSIZE] = DBGSGET_BITSIZE_FROM_TYPESPEC(.TSPTR); 
NEWENT_FLAG = TRUE; 
END; 


Handle all other cases by ignoring the DST record. 


INRANGE): 
0; 

TES; ! End of CASE over the DST record type 
! If a new RST entry is being created from this DST record, fill in the 
! remaining fields, Link it into the module's symbol chain, and insert 
it in the RST Hash Table. 
If .NEWENT_FLAG 
THEN 

BEGIN 


aS 
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19-300"! 


:5 AX-11 Bliss-32 v4.0-742 Page 62 
1 b-sep- 1946 96: 3:3 DEBUG.SR RCIR RSTCNTRL.B32;2 . 185 
H 472 4 RSTPTR 3b Reg LE ws a TO_SAVE; 
3 rif 4 RSIPIRERSTSt-VESCOR = .NEST i Tact. NESTING); 
; 474 4 IF .COBOLGBL Hag. THEN. stein RST$V_COBOLGBL] = TRUE; 
: 475 4 COBOLGBL_FLAG = FALSE; 
; ois 4 SYMCHNPTRCRSTSL_SYMCHNPTR] = eRSTPTR; 
é 477 & SYMCHNPTR = .RSTPTR: 
: 478 4 ‘IF .RSTPTRCRSTS$B_KINDJ EQL RSTSK_TYPE 
; 479 4 'THEN 
3 480 4 ! BEGIN 
; 481 4 i RSTPTR RSTSL_HASH Ful NK} -RSTPTR; 
3 4 é 4 RSTPTR RSTSL-HASH_BLINK] = .RSTPTR; 
; 484 4 i 
3 485 4 ‘ELSE 
$ : 2 BBGSHASH_ INSERT(.RSTPTR); 
; rs : END; 
; 490 
; 491 ! If this RST entry defines a new nesting level (either peaneas nesting 
: re or data record nesting), we push a new entry on NEST_STACK 
; 49% iF .NEST_FLAG 
$ 495 THEN 
; 496 4 BEGIN 
; rh dh : If .NESTING GEQ MAX_NESTING = 1 
; 499 4 SIGNAL (DBGS_DSTNESDEP, 1, .MODNAMEPTR); 
; 501 4 NESTING = ,NESTING 
3 308 NEST. TSTACKE NESTING) =" .RSTPTR; 
; 504 . 
; 505 
3 206 ! If this DST record terminates the current nesting level, pop an entry 
3 44 off the nesting stack. 
; 509 iF .UNNEST_FLAG 
Py 510 THEN 
3 511 4 BEGIN 
; 316 4 IF sNESTING LEQ .. a SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 
; 317 4 NESTING = -NESTIN 
; 315 : 
; $17 Advance the DST pointer to the next sequential DST record and loop. 
; a1 : DSTPTR = ea SHE NEXT) + ,DSTPTRCDSTSB_LENGTH); ' 9015 
: 5 DSTPTR = .NEXT_DSTPT 
; é ' END; ! End of WHILE Loop over module's DST 
; r 
; 5 ! If there were any een Corvetet ten Table DST records for this module, copy 
; 5 § ' the table of pointers to t ose DST records into a separate memory bloc 
g 5 ! and make the RSTSL_MODP erst field point to that block. e first long- 
3 528 ! word of the block gives the number of DST pointers in the block. Then 


<=z 
4 
oO 
z 
—_ 
@ 
~ 


=SS8253 
uw 


Se 4 te 


ViFUN ("OOOO UE WO OONOU Fwy 


ra ah ah ah ah sh th tb db ab -db-ab-tb 4h Ab Ab ohh ohh cdc hh dh edi sh ech dh dh “db dich “dhah “dish dich “doh “dh “dh hh ah eh ahh “dich dh adh cbh edh ah “dhl 


ws 


PAA BE BEES EEE 


AAO 


Wwt— 


MEWn—Oo 


DWONAVNE WN O OONOUE WO 0O@ 


S 


BPP SFE FMAM ATNI[PINIININININININ HMA PIPIPUPINPIPIPUPINIPININI NNW AIP 


5 


12 
1b-3ep-1 53:41 AX-11 Bliss-32 
1 =300n 138i 95:33:52 DEBUG. SRCIRSTC 
} release the temporary memory block we used for those pointers. 
if »NUM_PC_TBLS GTR 0 
HEN 
BEGIN 
MODRSTPTRCRSTSL_PCTBL_BASE) = .PCTBL_BASE; 
= DBGSGET RERORY(.WUR_PC_TBLS + 1); 
MODRSTPTR Bet L_MODPCTBL] = .MOD_PC_TBL; 
MOD_PC_TBLCO) = .NUM_PC_TBLS; 
INCR I-FROM 1 TO 


B 
NUM_PC_TBLS DO 
MOD_PC_TBLC.13 = 7PC“CORR_TBLC.I - 1); 


END; 
DBGSREL_MEMORY(.PC_CORR_TBL); 


! If there were -" Source Line Correlation DST Records for this module, 
' copy the table of pointers to those DST records into a separate memory 
! block and make the RST) RODE TOL field point to that block. The first 
' Longword of the block gives the number of DST pointers in the block. 
Then release the temporary memory block we used for those pointers. 
IF .NUM_SRC_DSTS NEQ 0 
THEN 

BEGIN 

MOD_ SRC ue = DBGSGET PERORY CMU one STs + 1); 

MODRSTPTR R51$t RODSACTSL = .MOD_SRC_TBL; 

MOD_SRC_TBLCOJ] = .NUM_SRC_ 3 

INCR I FROM 1 eNUM_SRC_DSTS 

MOD_SRC_TBLC.1) =".SRC_CORR_TBLC.1 - 1); 


END; 
DBGSREL_MEMORY(.SRC_CORR_TBL); 


We must walk the RST to fix any pointers to continued DST records. We do 
it only when there is a continued record at all in the DST. We can't do 

it as we build the RST because there might be pointers in the DST to DST 

records that have not been moved at the time the RST entry is built. 


Fa NT ERS SON DOT FLOM 
BEGIN 


‘ 
i 
T 


Loop on the RST 


RSTPTR = .MODRSTPTREIRSTSL_SYMCHNPTR); 
WHILE -RSTPTR NEQ 0 DO 


Transform the DST pointer 
RSTPTRCRSTSL_DSTPTR = DBGSRST_DST_PTR(.RSTPTRCRSTSL_DSTPIR)); 


V4.0-742 
NTRL.B32;2 


Paee 18) 
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NTRL.832;2 


: 246 4 

: 26 4 

3 1ge 3 2 } RSTSL_TYPEPTR may be a DST pointer for data 

; 466 20 § if RSTPTRCRSTSB_KIND] EQL RSTSK_DATA 

; 468 % 4 RSTPTRCRSTSL_TYPEPTR] = DBGSRST_DST_PTR(.RSTPTRCRSTSL_TYPEPTRI); 
3 26 9% 4% 

; 7 95 4 t RSTSL_DST_TYPE_REC_PTR 

; crs i é iF RSTPTRCRSTSB_KIND] EQL RSTSK_TYPE 

: 247 4 RSTPTRLRSTSL_DST_TYP_REC_PTR] = 

; cre 690 4 ~"" BBGSRST_OST_PTR(.RSTPTRCRSTSL_DST_TYP_REC_PTRI); 
3 247 602 4 

3 vi 608 2 } Variant RSTs have DST pointers buried in the ‘Variant Entry” 
: 2481 605 4 iF .RSTPTRCRSTSB_KIND] EQL RSTSK_TYPE 

> 26 : 606 4 THE 

; r 607 BEGIN 

: 2685 609 

3 1 3i9 Walk the type component List 

: 26 61g TYPCOMPLST = RSTPTRCRSTSA_TYPCOMPLST); 

+ 2689 61 INCR J FROM 0 TO .RSTPTRLRSTSL_TYPCOMPCNT] = 1 DO 

ae BN sees 

> 269 616 6 

3 vet 3 ? } If we find a variant 

3 2495 $19 6 RST_PTR = .TYPCOMPLSTC.JJ; 

i: 249% 620 6 IF TRST_PTRCRST$SB_KIND] EQL RSTSK_VARIANT 

+ 249 621 £ THEN 

: rps ose 4 BEGIN 

+ 2500 624 7 

3 308 ° ‘ 4 Walk the variant List fixing the DST pointer 

; 7 VARSETTBL = RST_PTRCRSTSA_VARSETTBL); 

3 8 6 8 7 INCR I FROM 0 TO .RST_PTRERSTSL_VARSETCNT) - 1 DO 
; 06 630 VARIANT_ENTRY = .VARSETTBLC.1); 

3 250 631 VARIANT-ENTRYCRSTSL_VAR DsTPIR} = DBGS$RST DST _PTR( 
; 08 6 < .VARIANT_ENTRYCRSTSL_VAR_DSTPTR]); 
; ‘ giz F sem 

; HH 635 6 END; 

: 251 END; 

3 14 5 

; Hf ? END; 

: i$ 4 

; 2518 4 


paar eee 
m—OOe 


! Next RST entry 
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vbe 

; 251 364 ! 

; ¢ 4 RSTPTR = .RSTPTRCRSTSL_SYMCHNPTRI; 

3 § § END; 

3 END; 

3 5 rf: 

; $ 6 ! Go through the module's symbol chain to construct a DST address to RST 
3 6 ! address translate table for Data Type RST Entries which refer to records 
3 6 ! or enumeration types. 

: : : gent bother to do this unless the BUILD_TYPE_TABLE flag 

; 6 i 

Hy 6 ; IF .BUILD_TYPE_TABLE 

3 6 8 THE 

3 5 $23 BEGIN 

; 661 TYPE_DST_LST = DBGSGET_MEMORY(11); 

; 66¢ TYPE-DST-LEN = 10; 

3 2539 66 TYPE-RST-LST = DBGSGET_MEMORY(11); 

3 2540 664 TYPE-RST-LEN = 10; 

; 1 665 RSTPTR = -MODRSTPTRCRSTSL_SYMCHNPTRI; 

$ ¢g 06 WHILE .RSTPTR NEQ 0 DO 

3; 254 667 4 BEGIN 

3 44 668 4 IF .RSTPTRCRSTSB_KIND) EQL RSTSK_TYPE 

3 sz $6 6 THEN 

3 #8 670 BEGIN 

; 34 671 COMP_LIST_ADD_ENTRY(TYPE_DST_LST, TYPE_DST LEN, 

3 2548 67 “RSTPTRCRSTSL_BSTPTRI): 

3 2549 67 COMP_LIST_ADD_ENTRY(TYPE_RST_LST, TYPE_RST_LEN, .RSTPTR); 
Bp BAS a 

: 26 8 4 RSTPTR = .RSTPTRCRSTSL_SYMCHNPTRI; 

3; 255 67 END; 

: $3ee $79 | 
; 228 680 ! Now use this translate table to fill in the RSTSL_TYPEPTR field of Data 
3 22 1 ! Item and Type Component RST Entries which reference the Record-Begin or 
3 28 § : Enumeration-Type-Begin DST record of their type. 

: 60 RSTPTR = .MODRSTPTRCRSTSL_SYMCHNPTRI; 

3 $) 5 Z WHILE = NEQ 0 DO 

; $8 687 4 IF .RSTPTRCRSTSV_SET_TYPEPTRI 

3 2564 4 THEN 

3 2565 H BEGIN 

; $8 $9 ; INCR I -— 1 TO .TYPE_DST_LSTCO] DO 

; Bt 692 6 IF .TYPE_DST_LSTC.1) EQL .RSTPTRCRSTSL_TYPEPTR 

3 +4 69 § THEN 

: 0 694 GIN 

3 71 695 4 RSTPTRCRSTSL_TYPEPTR) = .TYPE_RST_LSTC.1); 

> 257 6 RSTPTRURSTSV-SET_TYPEPTR) = FALSE; 

: 7 697 7 EXITLOOP; 

3: 2576 6 : 

3 2575 6 


10.12 
1828 


$5 
g3 
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END; 
Frais oP TMERS TON SET _TWVEP TAD 
SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR); 
END; 
fo: = .RSTPTRCRSTSL_SYMCHNPTRI; 


ee) 
io 
wn 


Mun 


!' Go through the —- chain to find all Data RST Entries and all Type 

' Component RST Entries which point to Type RST Entries for Record data 

! types. For each such RST entry. increment the RST$W_TYPREFCNT field 

! in the correspond ng ig A ntry. At the end of fhe Looe. we will 
entries 


SNS 
ee ee ee 


; 4 

3 4 

; 0 

; ; 

: i 

3; 2591 5 ! thus know how many r reference each Record Type RST Entry. 
3 38 g ! This is the information we need to allocate space for the Type Refer- 
: Ms } ence Table for each Record Type RST Entry. 

; 95 g RSTPTR = ,MODRSTPTRCRSTSL_SYMCHNPTRI; 

3 33 9 ? ie ae NEQ 0 DO 

; 98 § 4 IF (.RSTPTRORSTSB_KIND] EQL RSTSK_DATA) OR 

3 14 ; H (.RSTPTRCRSTSB_KIND] EQL RSTSK_TYPCOMP) 

3 2601 725 BEGIN 

3 o8e 7 § IF .RSTPTRCRSTSL_TYPEPTR] NEQ 0 

; 260 7 THEN 

3: 2604 728 6 BEGIN 

; 2605 729 6 TYPEPTR = .RSTPTRCRSTSL_TYPEPTRI; 

: rey ? ? IF_ .TYPEPTRCRSTSB_KIND] NEQ RSTSK_TYPE 

: 608 , : : $DBG_ERROR('RSTCNTRL\RST_BUILD 20"); 

; 2\9 ¢ ? : z" WPEPTACRSTSO_f CODE? EQL RSTSK_TYPE_RECORD 

; oi¢ 4 $ 6 TYPEPTRCRSTSW_TYPREFCNT] = .TYPEPTRCRSTSW_TYPREFCNT) + 1; 
5 2614 738 ; END; 

3 2615 739 

3 oi¢ 740 4 END; 

3; 261 741 & 

2 oi8 74 4 RSTPTR = .RSTPTRCRSTSL_SYMCHNPTRI; 

3; 261 74 END; 

3; 2620 744 

3; 2621 745 

3; 26 § reg ! Now loop through all Type RST Entries, and allocate a ‘Type Reference 
3; 26 74 ' Table’’ for each such entry with a non-zero reference count. The type 
3 2626 74 ‘ reverence table for each entry will be used to store pointers to a 

3 2625 74 ! RST entries which reference this Type RST Entry (i.e., to all symbols 
3 ; $ ? of this data type). 

: 26 8 7 ; INCR 1 FROM 1 TO .TYPE_RST_LSTCO) DO 

3; 26 7 4 BEGIN 

3; 26 754 4 TYPEPTR = .TYPE_RST_LSTLC.1); 

; 2631 755 4 IF .TYPEPTRERSTSW_TYPREFCNT NEQ 0 

3; 2652 756 4 THEN 
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Bt = SOSSEET _AERONT(. YPEPTRERS TOU, SYPREP ENT); 
=U; 


vuvuz 


TRER 
R 


YPREFT 
TR YPREFC 


To complete the “Type Reference Tables’, go through the module's symbol 


chain once more. 
4 gorater to a Record Type RST Entry, add that entry's RST pointer to the 
ype RST Entr bt 

used by DB 
sym ae 


bol 


or each Data or Type Component RST Entry with a type 


e. This data structure is later 


eference Ta 
nd all records which could have a given 


s Tyee 
GSSTA_GETSYMBOL to f 
@ record component. 


RSTPTR = ,MODRSTPTRCRSTSL_SYMCHNPTRI; 
WHILE .RSTPTR NEQ 0 DO 


BEGIN 
IF eo ReTe TALS TeS KIND] EQL RSTSK_DATA) OR 


(.RSTPTR 


BEG! 
IF . 
THE 


STSB_KINDJ] EQL RSTSK_TYPCOMP) 


N 
RSTPTRCRSTSL_TYPEPTR] NEQ 0 
BEGIN 


! This RST entry has a type pointer. Add a pointer to the 
‘ sorvecpene®as Type RST Entry’s Type Reference Table which 
! points back to this current RST entry. 


TYPEPTR = .RSTPTRCRSTSL_TYPEPTRI; 
Fey VPEPTRERSTSB_FCODET EQL RST$K_TYPE_RECORD 


ee 


$L TYPREF TB 1; 
_TYPREF CNT = ,RSTPTR; 
. TYPEPTRERST$W_TYPREFCNT) + 1; 


om 
~<a 


! If RSTSV_MARKBIT is set, this RST entry is for an array of 


' 
i records and RSTSL_TYPEPTR points to the cell type of the 
' array. This pointer is no longer needed and in fact should 
no longer be there. We thus clear it and the mark bit. 
IF_ .RSTPTRCRSTSV_MARKBIT) 
THEN 

BEGIN 

RSTPTRCRSTSL_TYPEPTR) = 0; 

RSTPTRERSTSV-_MARKBIT) = FALSE; 

END; 
END; 
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INFO#250 


Referenced LOCAL symbol 

Ir 64250" LOCAL symbol 
eferen s 

Ihr 60250 LOCAL symbol ENUM 
eferen s 

INF OR2SO 


RORPOROPoRoTONnun 


NOME WO OONOUNE 


Refe ed LOCAL symbol ENUM 
INFO#250 1: 


SeGe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge 
~~ 
wr 


Referenced LOCAL symbol 


42 SF 54 53 S52 SC 4C 52 36 4E 43 54 


45 52 44 44 41 


42 SF 54 53 52 SC 4C 52 54 4E 4 


-Sep-1 AX-11 Bliss-32 V4.0-742 
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RSTPTR = .RSTPTRCRSTSL_SYMCHNPTRI; 
: Now release the DST and RST address tables for types to the memory pool. 
beGSREL _MEMORY(.TYPE_DST_LST); 
DBGSREL MEMORY (. TYPE-RST-LST): 
END; 
; We are then all done, and can return to the caller. 
MODRSTPTRERSTS$V_MOD_IN_RST] = TRUE; 
RETURN; 
L1:2125 
VARIANT_VALUE_FOUND is probably not initialized 
VAR ANT_VALUE_FOUND is probably not initialized 
< noe TPTR is probably not initialized 
t TSIZE is probably not initialized 
ENUM_DSTPTR is probably not initialized 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
53 52 15 00087 P.AAJ: ASCII <21>\RSTCNTRL\<92>\RST_BUILD 10\ 
31 20 44 4C 49 55 0009 
9009 -BLKB 3 
24 52 45 46 53 4 41 52 i , S000 P.AAK: .ASCII <16>\TRANSFERSADDRESS\<0><0><0> 
3 4 98 : 1 60084 F.AAL: ASCII <21>\RSTCNTRL\<92>\RST_BUILD 20\ 
30 32 20 44 4¢ 49 55 000C3 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 ENTRY DaGSRST gf Save R2,R3,R4,R5,R6,R7,RB,- 
SE F9CB ce 9 3 MOVAB RF eaaeeey 
E D CLRL TINUATION. DST_SEEN 
6D OFF6 CF OD MOVAL O$, (FP) 
00000000" EF 04 AC D OE VL mo RSTPTR MOD BEING BUILT 
50 AC 14 f ADDL3 #20, MODRSTPTR> R 
0 60 | 18 CMPB) ss CROS, #1 
1 1 BEQL 
00000000' EF 9F PUSHAB p AAJ 
1 DD PUSHL 
00028362 8F OD PUSHL #10470 
000000006 00 ; Fe : CALLS @# (TBSSIGNAL 
50 . = C 1$: ADDL3 #46, MODRSTPTR, RO 


RS 
ve 
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asin IERecISe REAL GLANS alt 


AE 9 A MOVAB (RO), 80(SP) ; 
01 8 BE 89 ; x BBC #i, @80(SP), 28 : 
50 «BE 02 44 2% BIse2 #2 980 SP) + 1448) 
04 aC DD 00048 PUSHL rape + 1454 
0090v CF 9 Fe 4 CALL bgcanst no MOST_RECENT : 
29 BE 4 € BBC 43 * : 1459 
06 A Dp PUSH, ng RSTPTR + 1463 | 
52 04 Ac 30 ¢ ADDL MODRSTPTR, R2 + 1462 
$ db D PUSH, th } : 
53 046 ac : F ADDL3 #52, MODRSTPTR, R3 : 
7E A MOVZBL ( -(SP) : 
FASE CF Fg CALLS #3, becsest_init : 
. Be gost ad aun : 
00028F AB BF DD $ 3s: PUSHL #167851 + 1465 
000000006 00 1 FB 00076 CALLS #1, LIBSSIGNAL : 
04 00070 RET + 1461 
50 04 AC of C1 OOO7E 4$: ADDL3 nos," MODRSTPTR, RO + 1476 
008¢ ce 6 06 MOVL Se : 
00sec =C¢ p MOVL me + 1477 
Bc OF 01 Ae 4 80 CPE psrete “#188 ; 
0002832A BF Dd PUSHL : 
000000006 1 FB 9A CALLS 4 “tits SIGNA : 
50 BE 08 8 03 A2 £0 OO0A1 5$ INSV ik a wee 980(SP) + 1478 
A2 9€ MOVAB > MODNAMEPT + 1479 
DD OOOAC PUSHL : 1480 
0000v CF 1 FB A CALLS » DBGSRST_NEXT_DST ; 
00sec =(C¢ 0 pO 0008 MOVL ng: TPTR : 
05 50 BE 0 g F 0008 cMPZV é ; #8, @B0(SP), #5 : 1488 
50 BE § 88 000C BISB2 #32, a@80(SP) : 1490 
50 04 AC 1 4 D00C4 6$: ADDLS ff MODRSTPTR, RO + 1496 
1c AE 60 9E 000C9 MOVAB (ROS (SP) : 
1¢ BE D4 000CD CLRL @28(§P) ; 
24 «AE 04 AC DO 0000 MOVL § MODRSTPTR, SYMCHNPTR + 1497 
58 N3 D4 000D CLRL  COBOLGBL FLA : 1498 
3 4 000D CLRL NUM_PC TEL + 1506 
48 AE 64 BF 9A OOODA MOVZBL #100, PC_CORR_SIZE + 1507 
48 AF DD OO0DF PUSHL p _CORR_SIZE : 1508 
0090v CF FB OO0E CALLS i * GET-MEM : 
4 AE 0 DO O00E MOVL pC CoRR TBL ; 
4 000EB CLRL MWA SR ; 1509 
44 AE 64 BF 9A O00E MOVZBL 0 cabs CORR. SIZE : 1510 
44 AE DD OO0F PUSHL src -£OR Resize ~ + 1511 
a 0 DO OOOFA nowt ie 
NOHO Py 
AE 7FFFFFFE 8 6BF OD f MOVL Rds SheCCORR. 1B “Pr IBL BASE : 1 iF 
FF cD 04 AC D MOVL §§ MODRSTPTR, NEST STACK : 151 
FE70 CD OD CLRL NEST _BREAK_STACR : 1525 
6 D4 CLRL RSP PTR > 1531 
00aA0 «CE «7C (0011 CLRG COMP_LST_SIZE : 1533 
o¢ AE 7C€ 0011 CLRQ NESTING BREA EAK : 1524 
AE pd 1 CLRL = VAR_REC"P : 1 
94 AE 7C 0011C CLRO NESTING” > 153 
0094 CE 04 O011F CLRL = ENUM_LST_PTR : 153 
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RO. peeeORRTTEC 

ae. NUM PC _TBLS, RO 

RO, aMOB_PC_TBL, @PC_CORR_TBL 
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#1, “DBGSREL_MEMORY 
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RSTC 


RO, SRC_C L 

a3. NUM-SRC_BSTS, RO 

RO, @MOB_SRC_TBL, @SRC_CORR_TBL 

mOb_SRC_T 

#1, DBGSREL_MEMORY 

R11, @SRC_CORR_TBLCNUM_SRC_DSTS) 
SRC_DSTS 


3 
, DBGSGET_MEMORY 
PTR 


1 
Q. RST 

20(RSTPTR) 
GERSTPTR), R2 
(R11), (Rd) 
R2), 28(RSTPTR) 
TING_BREAK, #50 
MODNAMEPTR 


6242 
IBSSIGNA 
6<(SP), #65280 


NG_BREAK 
NG_BREAK, RO 
R. NEST_BREAK_STACKCRO] 


——ee =O Th 


PAD§ANNM 
—-vA— 


), 40(RSTPTR) 
(R2), 4O(RSTPTR) 
NEWENT FLAG 

BL_BASE> 3(R11) 


PS, 865280 
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12: Se0-1944 96: 33:52 DEBUG. ¢ RCM STENTR L.832;2 9° 10) 
)) A 36%: PUSH : 1801 : 
000000006 90 . F eC CALL af Refs _MEMORY ; : 
A g 4 2 MOV 3 3 
16 AA MOV 25(R : 1 3 ; 
18 AA 08 AB OD A MOVL a ) 4m siPrR) +1 : 
iC AA 18 =AA OOD F MOVL pater BB(RSTPTRD + 1804. : 
14 AE o1 D 6 MOVL NEWENT + 1805. ; 
60 AE 1 p 78 378: MOVL $ NFCAG : 1806, 3 
68 7¢C BRB 31 3 
50 04 AE D 7E 38$: MOVL NEST R0 + 1816 : 
A FF38 CD4 MOVL NEST iit RO}. RSTPTR : : 
03 14 AA : cMPe (RSTPTR), + 1817 : 
7 OD PUSHL MODNAMEPTR + 1819 : 
1 0D PUSHL ; | : 
0002896A 8F DD 0059 PUSHL : ; 
000000006 00 3 FB 9 CALLS CT1BSss ican : | : 
OOAC CE 03 Ag D 9F 39$: MOVL an ), LENGTH : 1821 : 
: 14 a3 BGTR : 1822 : 
00A¢ CE 1 DO 005A7 40$: = MOVL LENGTH 3 : 
50 18 «AA OOAC CE C1 O05AC 41$: ADDL3 (eigth 4(RSTPTR), RO + 1823. : 
1C AA FF OA 3 B v - 4 R9) RSTPTR) : | : 
15 AA 9 8 B1S8 1iRSTPTR > 1824. : 
E 04 0058C CLAL “ P) > 1826) : 
20 AE 0D BE PUSHL  32(SP) : | ; 
SA DD 005C PUSHL RSTPTR : : 
0088 CE OD C3 PUSHL LENGTH ; | ; 
AA DD 005¢ PUSHL RSTPTR) ; ; 
1 ( 
0000v CF 05 FB CA CALLS #5, STATIC_ADDRESS 3 : 
54 AE 1D CF MOVL #1. UNNEST-FLAG > 1827) : 
5 8 11 03 BRB 46$ > 1586 | : 
50 Of AE 0D DS 428: MOVL NESTING BREAK, RO 3; 18 9| : 
5A FE70 CD40 D d9 MOVL NEST_BREAK_ STACKCROJ, RSTPTR 3 3 
2c 1 OF BEQL ry $~ : 1849 | : 
28 «AA 02 AB D E1 MOVL  2(R11), 4O(RSTPTR) > 1842) : 
25 1 EG 43$: BRB 46$ : 1386 | : 
50 94 Ar 06 £8 44$:  MOVL NEST! RO : 1853 | : 
5A FF38 CD40 EC move = NEST Sick tRO}. RSTPTR ; | ; 
02 14° «AA } F CMPB (RSTPTR) + 1854 | : 
7 °=«1 £6 BEQL rays : 3 
7 DD 005F PUSHL MODNAMEPTR + 1856) : 
1 OO FA PUSHL 1 3 $ 
0002896A 8F DD 005F PUSHL #166250 ; : 
000000006 00 3 OF : CALLS #3, LIBSSIGNAL : : 
4 AA a : p 458: ROVL Rit, 6(RSTPTR) ; 1858 : 
8B DD 0061 238: PUSHL 40 3 186? : 
0000v CF gi F 61 CALLS #1, BUILD_LABEL_RST : | : 
A 0 »D 51 MOVL RO. RSTPTR F | : 
aC AE Oc «AA BIA MOVL  12{RSTPTR), DSTPTR_TO_SAVE 31 : 
4 AA 04 b1F MOVE off O«RST TR) : 1 : 
18 AA 03 AB ; MOVL (R11), 24(RSTPTR) : 1870. : 
5A . BRB 1$ ; 1871. : 
01 02 A bOA 48S:  CMPB (R11), #1 > 1883 : 
o6e $4 006 Bet gts 
58 0D 00633 498: PUSHL at ; 1886 : 
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0000v gt 1 fF 535 CALLS #1, BUILD LABEL _RST : : 
A 0 DO 0063A MOVL R RS TR : : 

2¢ AE Oc AA ; MOV 12(RSTPTR), DSTPTR_TO_SAVE > 1887 ; 

4 AA 04 MOV s OCRSTETR) 1 3 

18 «AA 03 AB OD bt MOVL 3(R11), 24(RSTPTR) +1 : 

7E 04 00648 CLRL = = (SP) + 1891 ; 

20 AE DD 0064 PUSHL  32(SP) ; : 

A 0D 006 PUSHL RSTPTR : : 

E D4 006 CLRL. 0s = ( SP) : : 

18 AA DO 006 PUSHL  24(RSTPTR) : : 

0000v CF 3 re CALLS #5, STATIC_ADDRESS : ; 
0685 3 65¢ BRW oes : 1983 ; 

00 55 50$: PUSHL @# ; 1910 § 

000000006 90 F 661 CALLS #1, OBGSGET_MEMORY : | : 
A : 8 668 MOVL RO, idk. : 3 

16 AA 668 MOVE soft ¢ RSTP R) + 1911 : 
18 AA 03 AB OD a6 MOVL 3(A11), 26(RSTPTR) : 191¢ : 
50 C AE 00 00676 MOVL §NESTING_BREAK, R : 1913) : 

FE7O CD40 SA D 0678 VL_-RSTPTR, "NEST BREAK_STACKCRO) ; ; 
28 1 AA 2 C1 7E ADDL3 #2, 24(RSTPTR), 4OTRSTPTR) + 1916. : 
14 AE 1 00 00684 51S: VL #1, _NEWENT_FLAG + 1915) : 

E D4 0688 CLRL 0s = §P) + 1917. : 

20 AE ODD 06 A PUSHL 32(SP) : | : 

A DD 0068 PUSHL RSTPTR ; | ; 

; 4 0068F CLRL. = = (SP) : : 

Fg 1 00691 BRW 208 ; : 

6C AE 1 DO 00694 52$:  MOVL #1, BUILD_TYPE_TABLE + 1934 : 
80 BF 02 AB 1 00698 CMPB (R11), #728 > 1940. : 
13 00690 BEQL 5$ 3 3 

7 00 0069F PUSHL 4&7 3 1943. : 

000000006 90 1 FB O06Al CALLS #1, DBGSGET_MEMORY : : 
A 0 DO 006a8 MOVL RO, TR F F 

16 AA 6 6AB MOVE #6. 20(RSTPTR) + 1946) : 
18 AA & p OAF MOVL R11, 24(RSTPTR) + 1945 : 

15 AA 8 683 BIS62 #8, 21 (RSTPTR) ; 1948 : 
14 AE 1 0 8 MOVL #1. NEWENT FLAG > 1947 | : 
00A4 ce D5 00688 TSTL OMP_LST_PTR : 1948 : 

1 BF BNEQ : : 

0OA8 CE 9F 006C1 PUSHAB STATIC_FLAG : 1951. : 

0080 CE 9F 006C5 PUSHAB LENGTH ; ; 

008 E 9F 006C9 PUSHAB ADDRESS : | ; 

B OD cd PUSHL R 3 3 
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0002896a 8 BB QoAcr CALLS 4, LIBSSIGNAL : 2235. ; 
000000006 00 > bb QOAEB 818 CALLS. #1. DBGSGET MEMORY : : 
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94 cE : pete pusias ENUALLST_PTR : i, : 
% ore _ NUM_LST_PTR, R2 ; | ; 
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2€ 13 0008 BEQL : 
01 AS 9F 00DB PUSHAB 1CNUM SRC_DSTS) > 2555 
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ED 4 98 A2 Ff O60 123$:  AOBLSS 8 (AST_PTR), TY, 1228 3 2628. 
D5 55 : AA F2 OOE65 1268:  AOBLSS 4O(RSTPTR). J. 121$ + 2613 
5A 8 AA DbO SEGA 125$: MOVL  8(RSTPTR), RSTPTR + 2644 | 
88 11 EGE BRB 118$ + 2579 
03 6c A 58 0E70 126$: LBS  BUILD_TYPE_TABLE, 1278 > 26057) 
01ND BD OORT? 1278: Poem atte : 2661. 
000000006 00 1 FB 0€79 CALLS #1, DBGSGET_MEMORY : | 
00B8 CE 0 DO 00E80 MOVL RO, TYPE_DST_LST : | 
0084 (CE OA 00 00E85 mov. #16, TYPE_DST_LEN ; 3662 
OB DD OEBA PUSHL #11 > 2663 | 
000000006 00 1 FB OE ¢ CALLS #1, DBGSGET_MEMORY : 
00cO «CCE 0 00 00E9 MOVL RO, TYPE_RST $ 
ooac CE OA 00 00E98 OvL_ #16, TYPE_RST_LEN > 2664 
50 04 AC 08 C1 O0E9D ADDL3 #8, MODRSTPTR> RO ; 2665 | 
SA $0 00 OOEA MOVL (RO), RSTPT : | 
28 13 OOEAS 128%: BEQL 1308 3 2666 | 
07 16 AA 91 OOEA CMPB © 20(RSTPTR), #7 + 2668 | 
1F 12 QOEAB BNE = 1298 : | 
OC AA DD OOEAD PUSHL 12(RSTPTR) : 2672 | 
00B8 CE 9F O0EBO SHAB TYPE_DST_LEN : 2671 | 
000 3 OF OEB4 PUSHAB TYPE-DST“LST ; 
0000v CF FB OOEBS CALLS #3, COMPTLIST_ADD_ENTRY : | 
A 0D OOEBD PUSHL RSTPTR > 2673. 
go¢ CE 9F OOEBF PUSHAB TYPE_RST_LEN ; 
¢ ce F ECS PUSHAB TYPE-RST“LST : | 
0000v CF FB OOEC CALLS #3, COMPLIST_ADD_ENTRY ; 
SA 08 AA p eC 129$: MOVE (RSTPTRY, RSTPTR F Sees 
50 046 Ac Os C1 OOED2 130$:  ADDL3 #8, MODRSTPTR, RO > 2684 | 
SA 60 DO 00ED MOVL (RO), RSTPTR : 
41 13 OOEDA 131$:  BEQL : 2685 | 
36 15 AA 95 E1 OOEDC BBC #3, 21(RSTPTR), 135% > 2687 | 
b4 EE1 CLAL + 2692 
16 11 EES BRB 33$ F 
18 AA 0088 DE4O D1 EES 1328: cMPL alyPe_oST_LSTCII, 24(RSTPTR) ; 
Vv RST LL . : 
18 AA 00C0 DE4O 6 EEE MOVL a@TYPE_RST_LSTCIJ, 24(RSTPTR) 2695 | 
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Ve-$ep-1986 19:18:36 EoeauG. SRCSASTENTRL 52-2 | a 
15 AA 8 BA 0EFS BICB2 #8, 21 (RSTPTR) : 3688 
4 EFS 1338: AOBLEQ OTYPE DSTLST, 1, 1328 ¢ $690 
4 50 0088 . ere 1e78: BBC Ht er tasTb ERS, 1353 . 704 
ii os = DD OOF PUSHL ROBNAMEPTR 
0002896 BF DD OOFOA PUSH #106250 : 
ee 4 08 RA 09 Fig 135$: move é AsTPrR RSTPTR : 368 | 
BB C1 OOFIp 1368: ADDLS is MODRSTPTR, RO ¢ erid 
50 0% Ac bee " MOVE (RO), -RSTPTR 3 5700 
- to 33 bores 1378: bear fers : 3730 | 
aR CMPB (RSTPTR), #6 ; | 
a CMPB «=—-.20(RSTPTR), #10 ; | 
- eM FD OSES SNeo 1408 S 5706 
AA DS OOFSS 1388: FSTL  2e(RSTPTR) teed 
18 AA D> OOFS3 1388: iste feos tome! 
oh Ob ote MOVL  § 24(RSTPTR), TYPEPTR 2 ges | 
009¢ § cole AA 8 a MOVL TYPEPTR, RO : | 
OL at) a 1 ee 
1001000" 81 bb OFS PUSHL Ai ees 
ones FOR eae CALLS A CIBSSIGNAL * 573% 
amet t 18 AD OF a 1398: CHP 24 {n0), ' ae 
03 12 O0F6 BN we | 
A A2 BG 00F64 INCW —-26(R : 3t36 
5A O8 BA 06 ore 1408: one Bnstern, RSTPTR 720 
? 83 D4 Dred 1418:  CLRL : | 
23 bb pore ROVL @TYPE_RST-LSTCIJ, TYPEPTR i 3756 
ms MEE BR Be tara i 
1A Ad B Ht TSTW gn 
12 13 O0F81 BEQL 4 aa ; 2758 
5 habe og ee : 
000000006 00 Qi FB OOF ae Se ; eRS) bom 
1c Ae 1A AB BG OOF CRW 26th) os 3182 
> 53 00C0 BE FS GOES 1438: AoBLEG STYPE RST usr. 1, a etre 
30 “ & 85 60 OOFA ROVE (ROD, RSTPTR ~~ 
SA tS 93 Sora’ 144s: BEaL sitasterm po a5, 
06 16 AA 91 OOFA i. : 2776 | 
06 13 OOFA BEQL a ; 2776) 
me Bie Gig eeitsterm, an ) 
AA DS OOFBI 1458: Fete 2ecRSTPTRD : 
18 AA p FB1 145$: Fett eee peat 
‘ih FBG MOVL 24(RSTPTR), TYPEPTR : oiee 
oom ¢ of Ce BO bOrBe moVL —- TYPEPTR, RO 
5 cork CF BD pore CHEB 244 RO), “#7 pe 
te BN : 
52 1c AD 00 OOFE MOVL  28(RO), TYPREFTBL 
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6241 

07 15 AA 
15 AA 

5A 

000000006 00 


stated ' 4 
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0000v CF 


; Routine Size: 4115 bytes, 


oO 


Routine Base: 


bodeoc19Re 09:55: 


1A AO 3f FCB MOVZWL 
5A OD as MOVL 
1A AO 29 FD INCW 
04 € FD6 1468: 6BC 
18 AA Be FOB CLRL 
10 8A QOFD BICB2 
08 AA 99 FE2 147$: MOVL 
8B FE BRB 
0088 ff DD QOFES 1488 PUSHL 
FB QOFE CALLS 
00C0 . DO OOFF PUSHL 
fe FF CALL 
2 FFE 149%:  61S8 
4 01 RET 
0000 01 1508:  .WORD 
7E 04 01 CLRL 
SE 4 1 PUSHL 
04 ag D 01009 MOVQ 
05 FB 1908 CALLS 
04 01012 RET 
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GLOBAL ROUTINE DBGSRST_BLDSCOPE_LIST(PNVEC, ERRINDEX 
ORIGIN_FLAG, MODULE_FLAG): = 


' 
FUNCTION 

This rouse tae makes a new set of pcgnes available to the symbol table 
access routines. It is thus called in the course of processing the 
set scope list. It accepts as input a bs 5} po of pointers to 
Pathname Descriptors or the scopes specified on the SET SCOPE command, 
or SET SYMBOL/qulifiers namespec IN seagees ¢ command. It builds a 
Linked List of the gerrespend ng Scope Entries, and makes a scope 
pointer point to this List. 


=SSeS 
—o 


| 
Mur 


> 4 4 tt 


— 


ViFUN —O OONOUVUESWN “OOOO wr 


f an error ina acope pathname is detected, the index of that pathname 
$ returned to ERRINDEX, The actual return is accomplished by signal- 
Ling an error which is intercepted by an error handler. That handler 
releases any partially built new scope List back to the free gesery pool 
and then unwinds to return control to the caller of DBGSRST_SETSCOPE, 
or DBGSSTA_SHOWSYMBOL. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: INPUTS 

: PNVEC = A vector of pointers to Pathname Bescr ipters for the scopes 
; spec tas? on the SET SCOPE command or SHOW SYMBOL sepnend. 
: PNVECLO elie the nyad r of such pointers and PNVECL1 
through PNVECC.PNVECCOJ] contain the pointers to the 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


SEEEELES 


DONO VE WHO 


by making PNVEC zero. 
ERRINDEX = The address of a longword location to receive an “error 


Pathname Descript rs. The CANCEL SCOPE command is handled | 
| 


index’’; see description below. 


ORIGIN_FLAG - A flag set to TRUE if this routine is called from 
DBGSRST_SETSCOPE. This prevents us from setting the 
module as a side effect of the command. 

MODULE_FLAG = TRUE if we were called from SET SCOPE/MODULE 


OUTPUTS 

ERRINDEX = If some pathname is found to be invalid, the PNVEC index of 
that pathname is returned to ERRINDEX. fhe calling routine 
can then use ERRINDEX to produce an error message. If all 
scope pathnames are correct, zero is returned to ERRINDEX. 


NEW_SCOPE_LIST = Return value from this routine which is the pointer | 
point to the newly build scope List. 
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BEGIN 
P 
PNVEC: REF VECTORC,LONG), : Pointer to vector of Pathname Descrip- | 
: tor pointers 
ERRINDEX: REF VECTOR(1); ! Pointer to error index longword | 
LOCAL 


KIND ! The Kind of the scope’s RST entry 

MODPTR: REF RSTSENTRY, | Pointer to Module RST Entry for module 
} containing the presen scope 

NEW _SCOPE_LIST: VOLATILE, ! Pointer to new scope List being built 


PIII III III IIIS a a dd ed 
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PATHNAME: REF PTHSPATHNAME, 
PATHVEC: REF VECTORE,LONG), 
PNAME: REF VECTORC,BYTE), 


PREVSCOPE: REF SCOPESENTRY, 


14 
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Pointer to current Pathname Descriptor 
Pointer to current pathname vector 
Pointer to scope name as counted ASCII 
Pointer to first name in the Pathname 
Descriptor (as Counted ASCII) 
Pointer to the scope entry before the 


AX-11 Bligs-32 V4.0-742 
DEBUG. SRCIRSTCNTRL.B32;2 


present scope entry 


RSTPTR: REF RSTSENTRY, Pointer to current scope's RST entry 


1 
1 
' 


SSSESF ae ISION 


.PAT 
DBGSNPATHDESC_TO_CS¢.PATHNAME, PATH_STRING); 


eRF 


: 77 SCOPE: REF SCOPESENTRY, Pointer to the present scope entry : 
: ag STATUS; Status code returned by other routines 3 
: 2775 NABLE | ; 
; a 44 BLDSCOPE_ERROR_HANDLER(NEW_SCOPE_LIST); ! Declare an error handler : 
: 277 901 | : 
; ie 4 3 
; 781 st : Make NEW _SCOPE_LIST point to the List of new scopes. : 
: 27 ; 905 PREVSCOPE = NEW SCOPE _LIST; | ; 
: gf 906 PREVSCOPECSCOPESL_FLIAK) = 0; | ; 
> 2785 908 | : 
3: 27 909 ' If PNVEC is empty (as for CANCEL SCOPE), we build a scope list entry for 3 
; 738 319 numbered scope ‘0"’, i.e. for the scope containing the current PC. 3 
: 2789 91 if .PNVECCO) EQL 0 : 
3: 2790 318 THEN 3 
3: 2791 914 BEGIN | 3 
3 a4 915 SCOPE = DBGSGET_ME RY (SCOPESK ENTSIZE) 3 
; 279 a | SCOPE SCOPESL_FCINK = 0; 3 
3 2796 91 SCOPELSCOPESL_STATE) = SCOPESK_NUMBERED; : 
: 5795 18 SCOPECSCOPESL-RSTPTR] = 0; | : 
3 re 91 SCOPECSCOPESL MODPTR] = 0; 3 
: 279 920 PREVSCOPECSCOPESL_FLINK] = .SCOPE; ; 
3 as ; ; oe =. E; : 
; 9 : ; 
3 $0 92k | 3 
3 4) 925 ! Loop through the PNVEC vector and build a new scope entry for each element 3 
3 rt ; $ in that vector. | 3 
> 2805 9 8 INCR I FROM 1 TO .PNVECLO) DO ; 
3 & BEGIN 3 
: ; ? ERRINDEX(CO) = .I; 3 
: 9 ; 
3 10 9 § ! Set up pointers to the Pathname Descriptor, the pathname vector in 3 
: 11 9 ! that descriptor, to the first name in the pathname vector, and to the : 
3 if > 5 whole pathname string as Counted ASCII. 3 
: 2814 9 PATHNAME = .PNVECC.1); 

3 2815 9 PATHVEC = PATHNAM (PTHSA_PATHVECTOR]; 

3 6 9 PNAME = HVECCOJ; 

+ 281 

3 8 

3; 2820 


Wm —O0e 


2° 
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! Make sure there is no data qualification in the pathname. 
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' 
if -PATHNAMECPTHSB_TOTCNT] NEQ .PATHNAMECPTHSB_PATHCNT) 

SIGNAL (DBG$S_BADSCOPE, 1, .PATH_STRING); 
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If SET SCOPE/MODULE was specified, we process it here. 
if .MODULE_FLAG 
THE 
BEGIN 
Make sure there is exactly one name in the scope. 
if .PATHNAMECPTHSB_PATHCNT) NEQ 1 


SIGNAL (DBG$ MODUSCOPE. 1, .PATH_STRING); 
if -PNAMECO) EOC 


SIGNAL (DBGS_MODUSCOPE, 1, .PATH_STRING); 


FESESIIALIPL ANGLE LEE EE 
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ww 


Find the module RST. 
RSTPTR = GET_MOD_RST(PNAMEL1], .PNAMECO)); 


zs 


sz 
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96 

970 

44 H If the name is not a module, signal an error. 

378 if .RSTPTR EQL O THEN SIGNAL (DBGS_NOSUCHMODU, 1, .PATH_STRING); 
975 

97 } If the module is not set, try to set it. 


if NOT .RSTPTRCRST$V_MODSET) 
IF NOT DBGSRST_SETMOD(PNAMEL1], .PNAMECOJ, FALSE) 
$DBG_ERROR(RSTCNTRL\RST_BLDSCOPE_LIST"); 


DONO VEWN —OOOVNOUE WO 
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! We have now found the scope in the RST. Create a Normal scope 
: entry for it. 


MODPTR = .RSTPTR; 
WHILE .MODPTRCRSTSB KIND] NEQ RSTSK MODULE DO 
MODPTR = .MODPTRCRSTSL_UPSCOPEPTRI; 


SPIRES 


SCOPE = DBGSGET_ME RY (SCOPESK_ENTSIZE) ; 
SCOPECSCOPESL_FCINK] = 0; 
7 SCOPELSCOPESL STATE) = SCOPESK_NORMAL; 
7 SCOPECSCOPESL-RSTPTR] = .RSTPTR; 
7 SCOPECSCOPESL-MODPTR] = .MODPTR; 
re END 


Se Se Se Se Se Se Se Se Se Se Se Se Se Sse Ge Ge Se Se Ge Ge Se Ge Ge Ge Se Se Se Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Se Se Ge SOSH Se Se Ge Seas 


! If the first name in the pathname is null, we either have a numbered 


14 
18-3 1984 02:53:41 AX-11 Bliss-32 V4.0-7 
1 =3007 1382 93:73:56 DEBUG. SRCIRSTCNTRi.B3 ; 
scope or the global scope. Handle these two cases. 


ELSE IF .PNAMECO] EQL 0 
THEN 


BEGIN | 
4 «PATHNAMECPTHSB_TOTCNT) NEQ 1 | 


SIGNAL (DBG$_BADSCOPE, 1, .PATH_ STRING); 


<z 


: Anything else with a null first name is an error. 
ELS 


E 
SIGNAL (DBG$_BADSCOPE, 1, .PATH_STRING); 
END 


= 


NOUS WO 


1 | : 

if ! If this is the Global scope (i.e., ‘\'"), build a Global Scope | 3 

\§ : Entry for inclusion on the new scope List. : 

14 if .PATHNAMECPTHSB_LOCINVOC) EQL 0 | ; 

15 THEN 3 

1 BEGIN $ 

1 SCOPE = DBGSGET ME oy “thom sete $ 

8 SCOPE SCOPESL_FCINK = 0; : 

01 SCOPECSCOPESL-STATE) = SCOPESK_GLOBAL; ; 

020 SCOPELSCOPESL_RSTPTR] = 0; $ 

; 1 i SCOPESL_MODPTR] = 0; : 

3 | i 

025 ! If this is a Numbered scope (i.e., '0'’), build a Numbered Scope 3 

3 $ : Entry for inclusion on the new scope List. : 

3 ELSE IF .PATHNAMECPTHSB_LOCINVOC) EQL 1 | : 

030 EGIN | : 

031 SCOPE = DBGSGET_MEMORY(SCOPESK_ENTSIZE); é 

0 ; SCOPE SCOPESL_FCINK = 0; : 

1 0 SCOPECSCOPESL_STATE] = SCOPESK_NUMBERED; $ 
1 4 SCOPE seoeeerenslotad zs Q; 3 
1 5 SCOPECSCOPESL-MODPTR] = .PATHNAMECPTHSL_INVOCNUM); : 
; 0 END | ‘ 
a3 Pe 
be | i 
1 8 | : 


' This seems to be an ordinary pathname. Look it up in the RST. If it 

' is not there, we see if it names a new module; if so, we SET that mod- 
ule and look up the symbol in that module. 

ELSE 

BEGIN 

' Look up the pathname in the currently SET scopes and modules. We 


' have a Loop ere since we may have to repeat the process if the 
! new scope is in a module which is not yet SET. 


wm OOO NEW O OOO VS wn oO 
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$3 
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MODPTR = 0; 
WHILE TRUE DO 
BEGIN 


! Look = the symbol in the current scopes. Then see what KINC 
! of symbol we got back. We do not accept global (GST) symbols. 


RSTS$SET_SCOPE = TRUE; 
DBGSSTA GETSYMBOL (.PATHNAME, RSTPTR, KIND, 0, 0, 0, 0); 
IF RSTPTR NEQ 

IF .RSTPTRCRST$V_GLOBAL] THEN KIND = RSTSK_INVALID; 


CASE =KIND FROM RSTSK KIND MINIMUM TO RSTSK_KIND MAXIMUM OF 


! If the symbol is not unique, return with an error. If 
' this is the second time through, cancel the module we SET 
the Last time through; then signal not unique. 


SALINAS TABS SELES 
MEW —OOONOUSE 


| 

| 
95 | 
95 CRSTSK_NOTUNIQUE, 
95 RSTSK OVERLOAD : 
961 IF .MODPTR NEQ 0 

| 
STATUS = DBGSRST_CANMOD(PNAMEL1], .PNAMECOJ); | 
965 IF .KIND EQL RSTSK_NOTUNIQUE 
96 SIGNAL (DBG$_NOUNIQUE, 1, .PATH_STRING) | 
969 ELSE 
970 SIGNAL (DBG$_NOTUNQOVR, 1, .PATH_STRING); 
57 ND; | 
358 . 
974 | 
975 : If the syabet is a lexical entity, it is a valid scope. 
4 } Clear MODPTR to indicate this. | 


CRSTSK ROUTINE RST$K_ BLOCK): 
MOBPTR = 0: 


! If the symbol is a Line Number, the actual scope is the 
! containing lexical entity. Change RSTPTR accordingly and 
set MODPTR to zero to indicate we have a good scope. 
CRSTSK_LINE): 

BEG 


RSTPTR = .RSTPTRCRSTSL yagcorerta: 
KIND = oRTPTRERS TSB _ETND : 
MODPTR 3 


& 
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=000 1e=8ee= 138s 98:78:36 HRaus SAL SRs Pew yanc wsoe2 OOF tS | v 
3; 295 115 | 3 
; 29 11 3 
3 38 119 ! If the oe sj anything else, this is not a valid scope. $ 
3 2995 1 i We thus try to nterpret the first name in the pathname as 3 
; 27% 11 ' a@ module name. If this succeeds, we SET that module and $ 
; £95 : loop to look up the scope again. : 
> 2999 188 INRANGE): | ; 
3; 2000 ; Z ? BEGIN | 3 
s 200 3 
: 006 125 6 : 
3 300 1 § ° ! See if this is the second time around (i.e., ; 
; tH ’ 2 } we tried setting the module Last time around). : 
3 $006 133 § if ;MODPTR NEG 0 | ; 
3 300 3 
3; 3008 : 1 , BEGIN 3 
. NOS Py 
: 3010 1 : 7 ! If there was only one name in the pathname then | : 
3; 3011 134 7 ! what has happened is that we set the module 3 
3 4h 135 7 : and looped around to see if we found a scope : 
3; 301 1 7 ! within the module that we should use. We did | $ 
3 BIS ! 4 not, so we use the module as the scope. : 
; O16 139 > if .PATHNAMECPTHSB_TOTCNT) EQL 1 | : 
3; 301 140 7 THEN | ; 
3 Big 141 EGI 3 
; 301 10g RSTPTR = .MODPTR; : 
: 3051 rh ENDS | 
: 30 145 7 ; : 
3; 30 § 196 4 Otherwise, cancel the module and return error. | 3 
6 ’ § } 3 
: 3025 148 7 STATUS = DBGSRST_CANMOD(PNAMEC1], .PNAMECO]); ; 
; 30 6 149 r SIGNAL (DBGS_BADSCOPE. 1, .PATH_STRING); : 
. ' . 3 
; 151 6 ; : 
2 36 5 152 6 : 
; 30 138 6 ! First time around. Try to SET the module given by the 3 
: 3031 138 ? first name in the Pathname Descriptor. 3 
» 30 ‘ Py 
3; 3¢ § 136 ° RSTPTR = GET_MOD_RST(PNAMEL1], .PNAMECO)); | : 
3 $035 138 6 | 
s Ft ? If the first name is not a module, signal an error. | : 
. . ‘ $ 
: fe 18¢ ° IF .RSTPTR EQL O THEN SIGNAL(DBG$_BADSCOPE, 1, .PATH_STRING); : 
. 8 3 
; 3040 1 3 
3 ¢ 1 182 g ! If the module is already set, and the pathname is more : 
3; 3 § 165 6 ! than a single name, then there is no use going on with : 
3 C Z 198 ° the search. Signal an error. ; 
? 8045 i iF .RSTPTRCRSTSV_MODSET) AND : 
: 4 188 $ (.PATHNAMECPTASB_TOTCNT) NEQ 1) : 
o ' Py 
; ‘ 8 HT SIGNAL (DBG$_BADSCOPE, 1, .PATH_STRING); 3 
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! If the module is not set try to set it. Only if 
i we are called from DBGSRST_SETSCOPE. 


if NOT .RSTPTRCRSTSV_MODSET) 
THEN 


BEGIN | 
IF NOT ORIGIN FLAG | 


SIGNAL(DBG$_BADSCOPE, 1, ,PATH STRING); 
IF NOT DBGSRST_SETMOD(PNAMEL1), TORAMELOS, FALSE) 


i 
HEN 
. SOBG_ERROR('RSTCNTRL\RST_BLOSCOPE_LIST"); | 


> 
VEU —OOONOUS UT 


! Set MODPTR to point to the module we have just 
' set and loop back to try looking up the name 
in this module. 


MODPTR = .RSTPTR; 
END; 


TES; 
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! If MODPTR is non-zero, we have a new module to try the look-up 
: n, so we loop. Otherwise, we exit this WHILE loop. 


if ,MODPTR EQL 0 THEN EXITLOOP; 


! We have now found the scope in the RST. Create a Normal scope 
: entry for it. 


MODPTR = .RSTPTR: 
WHILE .MODPTRCRSTS$B KIN) NEQ RSTS$K_MODULE DO 
MODPTR = .MODPTRCRSTSL_UPSCOPEPTRI; 


DBGSGET _ME RY CSCOPERE _SUTSIZE):; 
sneer aun 


END; ! End of normal scope ELSE clause 
' We have now created a scope Entry of some kind. Attach it to the 
: end of the new scope List we are building. 


PREVSCOPECSCOPESL_FLINK] = .SCOPE; 
PREVSCOPE = .SCOPE; 


END; ! End of INCR loop over PNVEC vector 
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RSTCNTRL 
you 5000 
3 2 4 3 
3; 31 3 
; 1 1 : We have now built the new scope List successfully. Note this by setting : 
3 1% § ; RINDEX to zero. : 
: 3111 4 ERRIN NDEXCO] ; 
; 1g 5 RETURN .NEW_ ScobE LIST; : 
: 3114 5 END; ; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 : 
42 SF 54 53 ; 5¢ ac 52 54 4 43 54 5 $2 1 OCA P.AAM: .ASCII <26>\RSTCNTRL\<92>\RST_BLDSCOPE_LIST\ : : 
42 SF 54 §3 5c 4 5 54 4 43 54 ; 52 1A OOOES P.AAN: .ASCII <26>\RSTCNTRL\<92>\RST_BLDSCOPE_LIST\ : | : 
54 49 4C SF 45 50 GF 43 44 4C 0004 : | : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 : 
OFFC 00000 ENTRY DBGSRST BL BLOSCOPE_LIST, Save R2,R3,R4,R5,R6,-; 2830 ; 
58 000000006 i e 9000 OVA L168 1688 S{¢nAL, R11 : : 
0 000C CLRL NEW_ * SCOPE LIST 3 2875. 3 
6D 02¢ cf O00F MOVAL 42$7 (FP : : 
58 Oc A OF 0014 MOV NEW SCOPE_LIST, PREVSCOPE : 2905, : 
D4 00018 CLAL (PREVSC OPE) + 2906 | ; 
04 BC 05 OOOIA TSTL @PN 3 2912 | : 
1B 12 0001D BNEO Sey : F 
04 DD 0001F PUSHL #4 > 2915) : 
000000006 00 gi FB 00021 CALLS #1, DBGSGET_MEMORY : : 
52 0 DO 00028 MOVL RO PE F : 
é pA 0028 CLRL = (SCOP. : 916 : 
04 A2 02 7D 00020 MOVG #2. 4(SCOPE) : 2917 | : 
0c A2 D4 00031 CLRL = 12¢SCOPE) : 2919 : 
68 D 99 MOVL SCOPE, (PREVSCOPE) : 2920 ; 
58 D0 00037 MOVL SCOPE. PREVSCOPE > 2921 : 
4 38 A 1$: CLRL 3 2952 | : 
02 p 1 C BRW 41$ : : 
08 BC b9 F 2%: MOVL I, @ERRINDEX ; ; 
6 0% Bch? ; MOVL  @PNVECCIJ, PATHNAME > 2937 | : 
9 8 MOVAB 8(R6), PATHVEC : 2938 | : 
3 D C VL  (PATHVEC), PNAME > 2939 : 
4040 F 6B fF PUSHR #*°M<R6 4 : 2940. s 
000000006 00 F 3 CALLS #2, DBGSNPATHDESC TO CS ; : 
01 Ab 6 ? A CMPB (par ), 1¢PATANAME) + 2945. : 
D BEQL $ ; : 
F Dd PUSHL PATH_STRING > 2947 | : 
DD PUSHL #1 ; : 
00028108 f DD PUSHL #164312 ; : 
F CALLS #3, LIBSSIG NAL : ; 
10 At 5 3$: BLBS moby ter LAG, 4$ > 2961 | : 


N 14 
16-Sep-1984 02:5 AX-11 Bliss-32 V4.0-742 Page 98 
14- et 96: 33:54 DEBUG. SRCJRSTCNTRL.B32;2 a) 
01 01 Ab 4 74 4$: CMPB J (PATHNAME) , rT) : 2958 
dD 1 78 BEQL : 
: DD 0007A PUSHL PATH_STRING + 2960 
DD 0007C¢ PUSHL #1 : 
00028100 8F DD 0007E PUSHL #164096 : 
68 ; F CALLS #3, LIBSSIGNAL ; 
: 9 7 5$ TSTB  (PNAME) + 2961 
D1 9 BNEQ : 
: ny) PUSHL  PATH_STRING + 2963 
0D D PUSHL a : 
00028100 8F DD F PUSHL 4096 3 | 
B FB H CALLS a LIBSSIGNAL : | 
z 9A 00098 6$: MOVZBL PARE) =(SP) + 2968 
01 a3 9F 00098 PUSHAB : | 
0000v CF 02 FB 9 CALLS : Moet MOD_RST : 
08 AE D A MOVL phstPrR - : | 
en act) a kegs 
6f DD OOOAD PUSHL PATH. STRING : | 
0 DD OOOAF PUSHL : | 
00028168 8F DD 000B1 PUSHL 64328 ; 
03 FB 00087 CALLS a3° 1BS$1GNAL : 
21 28 AS E8 OOOBA 7$: BLBS 40(R5), 8S : 2978 
3 04 0008 CLRL ath} + 2980. 
7E 63 9A 000C MOVZBL (PNAME), =(SP) : 
01 a; 9F 000C PUSHAB 1(PNAMES ; 
0000v CF re 10066 CALLS #3, DBGSRST_SETMOD ; 
11 0 E CB BLBS RO. 8$ F | 
00000000" EF 9F OOOCE PUSHAB P.AAM + 2982 
1 DD 00004 PUSHL ai ; 
00028362 8F DD 00006 PUSHL 64706 ; 
68 FB D00DC CALLS a3 LIBSSIGNAL : 
54 p DOODF 8S: MOVL R5, M : 2988. 
01 14 A& 91 000E2 9S: CMPB 5 {MODPTRI. rt) : 2989 | 
06 i DOOES BEQL Ss : | 
54 10 A& 00 000E MOVL  16(MODPTR), MODPTR : 2990. 
F4 11 QOOEC BRB 9$ F 
4 DD OOOEE 10$:  PUSHL #4 3; 2992 | 
000000006 09 1 FB i CALLS a. seoeer "eons ; | 
23 D4 FA CLRL (score) : 2993 
04 a2 1 00 FC MOVL 4 (SCOPE) + 299% | 
08 A 0182 i MOVL + 8(SCOPE) 3 2995 
$3 711$:  TSTB  (PNAME) : 508 
s | BNEQ J 
01 6 9 CMPB = (PATHNAME), #1 + 3006 
D 13 BEQL ; 
— DD 0011 PUSHL PATH_STRING : 3008 
1 DD 0011 PUSHL #1 ; 
000281D8 8F DD 0011 PUSHL #1643 ; 
68 3 F 1A CALLS @ t1Sss cua. ; 
02 A Hy 1D 12%: iste 1 eage : 3014 
4 OD PUSHL : 3017 
000000006 99 1 FB 4 CALLS » DBGSGET MEMORY : 
0 OD 8 MOVL 40 3 
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AX-11 Ot igsc 38 V¥4.0-742 
DEBUG. SRCIRSTCNTRL .832;2 
PATH STRING 
9164590 
r] § LIBSSIGNAL 


(RO), RSTPTR 

TPTR. R 
20(RO), KIND 

DPTR 

$ 

DPTR 
(PATHNAME), #1 
MODPTR, RSTPTR 
(PNAME), =(SP) 
1 (PNAME 
#2, DBGSRST_CANMOD 
RO, STATUS 
PATH_STRING 
#164312 
#3, LIBSSIGNAL 
(PNAME), =(SP) 
1(PNAME 
2. GET_MOD_RST 
RO, RSTPTR 
RstPTR, RS 
PATH STRING 
#164312 
#3, L 18S$1GNAL 
40(R5), 328 
{PATHNAME) . #1 
PATH_STRING 
#164312 
#3, LIBSSIGNAL 
40(R5), 348 
ORIGIN FLAG, 33% 
PATH_STRING 


#164312 
#3, LIBSSIGNAL 
-(§P) 


(PNAME) -(SP) 
as. DBGSRST_SETHOD 
BAAN 


#164706 
a. LIBSSIGNAL 
R5, MODPTR 


e 
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3185 


3193 


d 15 
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34 35$:  TSTL DPTR 
BEQL 36$ 
FECF BRW 17$ 
8 AE 0 368: MOVL  RSTPTR, MODPTR 
4 & 9F 378: CMPB (MODPTR), #1 
06 1 A BEQL 5 
10 AG p A MOVL $<MODPTR). MODPTR 
F4 A BRB 4 
4 OD 00CAB 38S PUSHL #4 
000000006 1 FB AD CALLS #1, DBGSGET_MEMORY 
D B4 MOVL RO PE 
6 D4 00287 CLRL = (SCOPE) 
A D 89 VL #i, 4(SCOPE) 
8 A 08 AE D MOVL  RSTPTR, 8(SCOPE) 
Cc (OA D C2 39$:  MOVL #$MODPTR, 12(SCOPE) 
$ : D C6 40$:  MOVL SCOPE, (PREVSCOPE) 
D ¢ MOVL SCOPE PREVSCOPE 
FDO6C 57 01 06 Bc FI ce 41$: ACBL  aPNVEC, #1, I, 2s 
08 BC D4 9 D CLRL @ERRINDEX 
50 OC AE Bd D6 MOVL §§ NEW_SCOPE_LIST, RO 
4 OO2DA RET 
0000 00208 42$: - WORD sexs nothing 
50 08 ¢ DO 00200 MOVL (AP), RO 
50 04 AO DO 002€1 MOVL 4 (RO). RO 
AO 9F OOZES PUSHAB NEW_SCOPE_LIST 
1 DD 00268 PUSHL #1 
E DD OO2EA PUSHL SP 
7E 06 AC 70 O02EC MOVO 4(AP), =(SP) 
0000v CF 0 FB 002FO CALLS #3, BLDOSCOPE_ERROR_HANDLER 
04 002F5 RET 


; Routine Size: 758 bytes, Routine Base: DBGSCODE + 1701 
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vou 

: b 3 ! GLOBAL ROUTINE DBGSRST_CANMOD(MODNAMEPTR, LENGTH) = : 
: 31 40 1 | FUNCTION ; 
3; 31 41 1! This routine marks a specified module as being CANCELLED (not SET). : 
3; 31 42 1! The routine accepts the desired module name and its length as input, 3 
s 31 45 1! looks up that name in the RST Module Chain, and marks t ‘ module as 3 
3; 31 44 1! bein ney SET. Alternatively, if no ule name is specified, all $ 
: 31 49 1 | modules in the RST Module Chain are CANCELLED. | : 
: 31 “3 i INPUTS | ; 
3; 31 rh ss MODNAMEPTR = A pointer to the first character of an ASCII string | : 
3; 31 49 1! gee Aeeden the module name. If this pointer is zero, it 3 
3 : 4 : } S assumed that all modules should be marked as not SET. : 
; ; 5 : ; LENGTH = The Length in characters of the module name. : 
: 31 z 1 ! OUTPUTS : 
3; 31 22 64 This routine returns the value STSSK_SUCCESS if the module was success- : 
3; 31 28 1! nel cancelled, or it returns STSSK_SEVERE if the specified 3 
3; 31 ae Pe module name does not exist in the RST Module Chain. If all 3 
; : + ' } modules are cancelled, STS$K_SUCCESS is returned. : 
: 3138 moe F 
3 + 4 ot BEGIN : 
> 3141 8 LOCAL : 
: 146 rf: RSTPTR: REF RSTSENTRY; ! Pointer to the Module RST Entry : 
i $e o 
: 146 68 ! If a specific module name was speci tied we look up the corresponding : 
3 3147 69 ! Module RST Entry. mark the module as being CANCELLED (not SET), and remove : 
; re £ ; the module's RST symbol chain. : 
: 3150 2 iF .MODNAMEPTR NEQ 0 | ; 
3; 3151 7 THE 3 
3; 31 ¢ 74 BEGIN 3 
; 31 75 RSTPTR = GET_MOD_RST(.MODNAMEPTR, .LENGTH); PY 
> 3154 2 IF .RSTPTR EGL O-THEN RETURN STS$K_SEVERE; | 3 
3 3155 7 RSTPTRCRSTSV_MODSET) = FALSE; 3 
3 138 8 DBGSRST_REMOVE(. 3 3 
: 13 7 RETURN STSSK_SUCCESS; 3 
; 3158 80 ND; 3 
48 ; : 
: 3161 38 ! No module name was specified. Go through the whole RST Module Chain (but ; 
: 166 4 ! ignore the enonyneus module) and mark each module as being not SET. Also : 
3; 316 5 ' remove each such module's RST symbol chain. Note that we abort this loop 3 
3 \ee ! if the user has entered Control-Y DEBUG to stop the command. : 
: 166 8 RSTPTR = .RSTSSTART_ADDR; ; 
; 316 WHILE .RSTPTR NEQ 0°00 3 
3 198 thy 3 
3 16 91 ABORT_ON_CONTROL_Y; 3 
s 10 3 4 nor -RSTPTRCRSTS$V_ANONMOD } : 
: 3172 9% 4 BEGIN ; 


RSTCNTRL 
-000 
; 31 95 4 RSTPTRCRSTSV_MODS = FALSE; 
; if 39 pBssnst -REMOVE(.R Terk ); 
a i 
; 317 RSTPTR = .RSTPTRCRSTSL_NXTMODPTRI; 
5 178 END; 
; 1 ! RETURN STSSK_SUCCESS 
3 N K_SU 3 
; 3182 END; 
0004 
046 AC o 
1F OY 
7E 06 ac 7D 
0000v CF 9 F 
2 ) 
3 1 
50 4 0D 
gs 
28 =A2 93 ry 
2 oD 
0000v CF 9} FB 
4 11 
52 00000000° 00 
0D 000000006 00 1 €1 
000280E8 F OD 
a a 1 4 
08 A 2 
A 1 A 
2 OD 
0000v gf 01 F 
2 10 Ag ) 
o> (1 
50 01 00 
& 
3; Routine Size: 94 bytes, Routine Base: DBGSCODE + 1AC7 


4 


F 15 
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sENTRY DBGSRST_CANMOD, Save R2 
L MODNAMEPTR 


TST 
BEQL 

MOVG DNAMEPTR = (SP) 
CALLS - GET mop _RST 
MOVL R , RSTP 

BNEO = ‘'1$ 

MOVL #4, RO 


R 
BICB2 #1, 40(RSTPTR) 
RSTPTR 


PUSHL 

CALLS #1, DBGSRST_REMOVE 

ROVE re RSTPTR 
BBC mebrsrer-* CONTROL+1, 4$ 
PUSHL 

CALLS L1BSs 

BBS “~ CRSTETRD, 5$ 

B1CB2 40( RSTPTR) 

PUSHL ; Ht: 


stp 
CALLS DEGSRST_ REMOVE 
MOVL pee RSTPTR 


MOVL 1, RO 


Page 103 
nad >| 
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} ¢ GLOBAL ROUTINE DBGSRST_DST_LENGTH(PASSED_DSTPTR) = 

1 i FUNCTION 

1 ‘ This routine geerches the Reyed DST entry List for a motesing 

1 ' “real’’ DST pointer. If it finds one it returns the Length of the 
1 : DST as stored in the MDES structure. If not it returns the DST length 
; : from the record. 

1 i INPUTS 

; : PASSED_DSTPTR = The DST pointer to look for. Passed by value. 

1 i OUTPUTS 

; Returns the DST Length. 

1 . 

1 


Assure ourselves that it is ‘‘real"’. 


DSTPTR = DBGSRST_DST_PTR(.PASSED_DSTPTR); 
MOVED_DST_ENTRY = .DBGSGL_MOVED BST_LIST_HEAD; 
WHILE™ -MOVED_DST_ENTRY NEGA 0 00 


DONO NPUINAOSR IEA 
AEG OOO NONE WN HOOD NO ME a 


: Check if we've found it and return the ‘‘next'’ one. 


8 if .DSTPTR EQLA .MOVED_DST_ENTRYCMDESL_REAL_DSTPTR) | 
40 RETURN .MOVED_DST_ENTRYCMDESL_REAL_LENGTH); | 
ri | 
4 ! Next! 
4 i | 
4 


NOVED_DST_ENTRY = .MOVED_DST_ENTRYCMDESL_FLINK); 


: We didn't find anything. 
RETURN .DSTPTRCDST$B_LENGTH); 
END; 


Se Ge Ge Se Se Se Se Se Ge Ge Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Ge Ge Ge Se Se Se Ge Ge Se Ge Se Se Ge Se Ge Fe Ge Se Ge Se Se Ge Se Se Ge 


SLSVSVSEARAN LS Save nRUVsSSeVvEnK wv Gow wenkownos 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
DSTPTR: REF DSTSRECORD 1 229 
MOVED_DST_ENTRY: REF MDESRECORD;! 27? 


WO OOnNOufuwn— 


Ww 
Wn 


gsiere 
CALLS #1, DBGSRST_DST_PTR 


0000 900 LENTRY DBGSRST_DST_LENGTH, Save nothing : 3305, 
04 AC DD 00008 PUSHL PASSED : 3330 | 
0000v CF O1 FB | 


se 


3; Routine Size: 


16-Sep-1 :5 AX-11 Bliss-32 V4.0-742 Page 105 
1Eofen- 1944 93:78:38 EOkeuc. Sacdastentmc esoe2 teed f 
51 000000006 p A ae wove RQGSGL_MOVED_DST_LIST_HEAD, MOVED_DST_ENTRY ; aH 
08 al ; p 13 CPL a 8(MOVED_DST_ENTRY) : | 
50 oc Al 06 19 OVI (MOVED_DST_ENTRY), RO ; 3340 | 
51 61 9 IF 28: MOVL § (MOVED_DST_ENTRY), MOVED_DST_ENTRY : 
a3 BRB 3 | 
50 60 9A 3 38: MOVZBL (DSTPTR), RO ; 
04 00036 RET : 3385 | 


39 bytes, Routine Base: DBGSCODE + 1825 
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: 3334 1 GLOBAL ROUTINE DBGSRST_DST_PTR(PASSED_DSTPTR) = 

; 1 | FUNCTION 

; 2.3 This Cout toe searches the Moved DST entry List for a metehing 

3 1! old DST ge ter. If it find one it returns the address of the 

: Z : H moved DST record. Me not it returns the passed DST pointer. 

; ri 1 | INPUTS 

3 ri} ! PASSED_DSTPTR = The DST pointer to look for. Passed by value. 

: 3244 1 § OUTPUT | 
3 rb ! Returns the ‘‘real’’ DST pointer. 
> 324 : | 
3 rt BEGIN 

Py 4 | 
; 50 LOCAL 

; 23 MOVED_DST_ENTRY: REF MDESRECORD;! 277? 
Be 

: 3255 | ome | 
. i | 
; A] MOVED. DST ENTRY = .DBGSGL MOVED _DST_LIST HEAD; | 
; 58 7 came _DST_ENTRY NEG 0 
3 re 6 ae ty | 
; 3261 

3 6 3 ! Check if we've found it and return the "real" one. 
; 64 8 if -PASSED_DSTPTR EQLA .MOVED_DST_ENTRYCMDESL_ORIGINAL_DSTPTR | 
: 66 RETURN .MOVED_DST_ENTRYCMDESL_REAL_DSTPTRI; | 
; 3268 88 
3 i 34 Next! 
: 4 91 MOVED_DST_ENTRY = .MOVED_DST_ENTRYCMDESL_FLINKI; | 
: * 38 END; 
: 74 94 
Py 75 9 | 
3 A "6 : We didn't find anything. 

; 18 8 RETURN .PASSED_DSTPTR; 

; 3280 rs END; 


ENTRY DBGSRST_DST_PTR, Save nothin 2 3354 

50 000000006 et ma ROVE GSGL_MOVED_DSf_LIST_WEAD, MOVED_DST_ENTRY ; 7 

06 a0 06 AC i CMPL § PASSED_DSTPTR, 4(MOVED_DST_ENTRY) : 
0 BNEG = 28 ; 


<z 


18-50 Sep-1986 AX=11 Bligs-32_v4.0-742 Page 107 
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50 08 Ad 0 i mOVL 8(MOVED_DST_ENTRY), RO ; 3386 
50 60 0 17 28: MOVL § (MOVED_DST_ENTRY), MOVED_DST_ENTRY : 3391. 
ED 1A BRB 1$ : 23 

50 06 AC 00 16 3$: MOVL PASSED_DSTPTR, RO ; 3398 | 
4 0002 RET : 3400 


; Routine Size: 33 bytes, Routine Base: DBGSCODE + 184C 


Kk 15 
aaSep-lobe $Siidico — EDeauG.SacSAstentaccasss; = 28198 
ILE 
RAN 


LENAME, 
s 


<2 


—_ 


1 

1 
GLOBAL ROUTINE DBGSRST_INITCIMGFILCHAN, F 
IMG_WEADER, TRANSFER_ADDR): NOVALUE = 


S 
wr 


! 
i FUNCTION 


ya 
we 


This routine initializes the Debug Sysbol veers (DST) and the Run-Time 
syaeet Table (RST) when the Debugger i irst 1 nvoked. It locates the 
in the user's execu able image file and maps it nto the St ate 
Pend thus the user . virtual address space. t does nt! same wi he 
Global Symbol Table (GST). therestter, t scans the ont re DST to find 
all modules which have ost records. for each such module, the amount of 
RST apeece required for the module is recorded, the static address bounds 
@ nodule are entered in the Progren. 3% Static Address fable Bf 

o necule RST Entry is constructed. Hash Table is also initial- 
ized and all module names are entered in :. Finally, enough free memo- 
ry space is allocated to accommodate the RSTs of the (arges several 

modules. Thus it should always be possible to have séveral modules in 
the RST at the same time no matter how large they are. 


5 et ee 


MA RIIEIRINININIUNNY 2 SS SOSCeS 
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TS 
prone - The channel that the sooge file is open on 
FILENAME = The address of a Counted ASCII string Containing the file- 
name of the executable image file. 


IMG_HEADER = The address (in memory) of the executable image file's 
header block. 


TRANSFER_ADDR = The program transfer address, This is used only to 
select the module which is initiatly SET. 


i OUTPUTS 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
j 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: The DST, GST, and RST are initialized. No value is returned. 
1 
BEGIN 
MAP | 
FILENAME: REF VECTORC,BYTE) ! The .EXE file's name in counted ASCII 


08 
’ 
: 
5 
; 


ab a oD ad SS tb 


IMG_HEADER: REF BLOCKE, BYTES; | Pointer to the .EXE file image header 


LITERAL 
MAX_ROUT_STACK = 50; ! Maximum size of the internal routine 
: start address stack--deeper rout- 
: ine nesting can mess up SAT. 


LOCAL 
DDR !' Memory block address from SEXPREG 
STBLK k_ COUN ' Number of DST blocks to map to memory 
STIR: Ret "SSTSRECORD, i Pointer to the current DST record 


sherk ptor or $ 


A 
D 
D 
ERR 
EX 
E i Map sect on bounds Cente ; for the 


E_FILNAM_DESC: VECTOR2 LONG), 
XE“SECBOUNDS: VECTORC2,LONG) 
EXE_SECNAM_DESC: VECTORC2,LONG), 
IMG_DST_BLOCK: REF IHSSENTRY, 


REMAPSEC system serv ge 
i Map section name descr tptor or the 


: RE vice 
! Pointer to DS est" descriptor” in the 
: executable image header 


system $ 
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CNTRL be -1984 02:5 AX-11 Bliss-32 V4.0-742 Page 1 F 
-000 =3007 138% 95: 33: 34 DEBUG SRCIRSTENYRI 832;2 . (1 \ 
3 IN_MODULE_FLAG, Set a TRUE if we are after a Module- 
qin ons g Ry w betere a Module- 
a "record n 
LANGUAGE , Lamas of the corvees er 
LENGTH, Byte length of a static address range 
LONGS_NEEDED, 


Number o 4 yongwerds of = rears we 

need from SEXPREG ¢t panes 

the largest several n ones 

: Pointer to the DST Module-Beg n record 
the current module 


MOD_DSTPTR: REF DSTSRECORD, 
or 
Pointer to current modu ies name in 


RST 1 

vou : 

3 9 ! : 
; 0 i i 
3 1 i : 
; i $ 
; 
: 
3 $345 i 
3 : i : 
8 i P- 
; 3348 i : 
3 9 MODNAMEPTR, i : 
3 ° i coun fe ASCII (used for errors). : 
; MOD_SIZE_TBL: i Table sles v ng. the a i symbol copie : 
3 ¢ VECTORCMIN -MODS_IN _RSTI,! f the MIN_MODS_IN_RST ‘ 
; } t modules "in Lofgwords. ‘ 
: 4 + 1 INDEX, i Index 4 4 *nOD. SIZE_TBL vector ‘ 
3 3 EXTSAT, i Pointer to the next obet aentey on the : 
: § i TMP_SAT_CHAIN ghe | : 
3; 335 NUM_BYTES, i Number of bytes in EXPREG call : 
; 3358 NUM_RST_ENTS, i camer a. RST entries needed for the i 
3 3359 ent module's symbol table : 
3 NUM_RST_LONGS, i Nunber vot RST longwords neosee 9 the : 
3 1 i ent module's symbol t | 3 
3 ¢ NUM_SAT_ENTS, i Number * Static Address Table vents tes ; 
: i in this module's RST : 
3 PPTR: REF DSTSPSECT_TRAILER, i Pointer to PSECT DST record trailer ‘ 
3 5 PREV_SAT_PTR: REF SATSENTRY, i Pointer to previous 5 entry in the : 
3 i Program SAT chain--used to insert : 
3 i new Static Address Table entries. 3 
3 PROG_SAT_PTR: REF SATSENTRY, i Pointer to current SAT entry in the : 
3 9 i Program SAT chain--used to insert : 
3 70 i new Static Address Table entries. | F 
: 3371 REC_NESTING, i Depth of data record nesting in DST F 
3 337 ROUT_STACK: i Routine start address stack--used to : 
3; 337 VECTORCMAX -ROUT_STACK], i build SAT for nested routines 3 
3: 3374 ROUT STACK NDEX ' Current size of routine address stack | ‘ 
3; 3375 RSTPTR: REF TASTSENTRY, ! Pointer to the current RST entry ‘ 
3; 337 RSTSIZE, i The RST space in Longwords needed for : 
3 7 i the current module's symbol table F 
3; 3378 SATPTR: REF SATSENTRY, i Pointer to SAT with when searching ; 
3; 3379 i or module with transfer address ‘ 
: STARTADDR i The start nedaress of @ static area F 
3 1 grat IC_F FLAG i flag set to —_, for static cote. items F 
3 § STATUS: seeker, LONG), i Status returned by RMS or SCREMAPSEC F 
: TESTDSTSIZE, i Size of test pro soll ost for a ; 
3 i Testable Debugg ‘ 
3 5 TMP_SAT_CHAIN, i Patanes fo a temporary Static Address 
; i ble chain for current module 
3 TMP_SAT_PTR: REF SATSENTRY, i Pointer to the current entry in the 
: : temporary SAT chain Wf copying : 
: i to the Program SAT : 
3 Ms TYPE; i The type of the current DST record F 
; 339 
3; 339 
Py 94 ' ase revo ee wee wre aw owreresvneaoasenanwre ewe nwme es BDH wR EE Bs eee wer sB mre Breen orware Zt Zr et wow en wows os. = ‘ 
3; 3395 : 
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! The first task is to map the Debug ounces Table (DST) into virtual 


do t 


: address space. To 
i image file (via the image 


' 
; y a A ocate the DST in the executable 

' open the file, call the Create Nap Section oyetes service for each symbol 
! table, and then close the file. Thereafter the DST can be refer- 

! enced directly by the other symbol table access routines. 

' (we'll go the same thing to GST in D0BG GST init, the virtual address 
space is released after the GST_RST build.) 

1 

' 


Start by doing some consistency checks to ensure that the image header 
pointer is non-zero and that the debug symbol-table offset in the header 
is non-zero. If either is wrong, signal an error and give up. 


F_.IMG_HEADER EQL 0 

HEN 

BEGIN 

SIGNAL (DBG$_NORSTBLD) ; 
Shag 


IF .IMG_HEADERCIHDSW_SYMDBGOFF) EQL 0 
THEN 


BEGIN 
SIGNAL (DBG$_NORSTBLD) ; 
RETURN; 


! We have a debug symbol table descriptor in the image header. If no DST 

! exists (because all the modules were compiled without /DEBUG or /TRACE), 
' we indicate this by ceeu ing the DST address zeroed. Otherwise we set the 
: DST address to 1 temporarily. 

I 


MG DST BLOCK = .IMG_HEADER ¢ Be HEADERC 1HD$SW_SYMDBGOF FJ; 
DSTBLK COUNT = .IMG Bsr BLOCKCIHS$@_DSTBLKS); 
IF .DSTBLK_ COUNT NEG 0 THEN DSTSBEGIN_ADOR = 1; 


! If the DST's Virtual Legh Number (VNB) is invalid, we siaply pretend that 
there is no DST. (This is actually an error in the image header.) 


IF .IMG_DST_BLOCKCIHSSL_DSTVBN] LEQ 2 THEN DSTSBEGIN_ADDR = 0; 


! If this is a Testable Debugger determine the length of the DST for the 
! test program. i.e. before the be ugger’s own DST records. Set the size 
i of the DST in file blocks accordingly so that only the test program's DST 


le «I 
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: is mapped into virtual memory below. 
iF (DBGSGV_CONTROLCDBGSV_CONTROL_ TOBG]) AND (.DSTSBEGIN_ADDR NEQ 0) 


BEGIN 
otters tom = vest 


STBLK_COUNT = (.TES 
ND; 


DST_SIZE(.FILENAME, .IMG_DST_BLOCK); 
TOSTSIZE + STILL ES he 


! If we decided above that there is no DST in the executable image, we print 
@ message saying that there are no local symbols. 


if ,DSTSBEGIN_ADDR EQL 0 
SIGNAL (DBG$_NOLOCALS) 
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90 ! Otherwise we decided that there is a DST, so we create a map section which 
91 ! maps the DST into our virtual address space. If this fails, we print the 
236 ' status moneage (with informational severity so we can continue) and set 
59 ' the DST start address to zero; if this succeeds, we set the DST start and 
294 i end addresses to the values assigned by SCREMAPSEC. 
5 ELSE 
399 BEGIN 
598 Exe - se CBOUNDSEO = $005 
599 EXE-SECBOUNDSL1) = 1°30; 
00 EXE _SECNAM_DESC 9 = 5; 
601 EXE~SECNAM-DESCL1] = UPLIT BYTE(ZASCIC 'DST"); 
ret STATUS = SYSSCRMPSC(EXE SECBOUNDS, EXE_SECBOUNDS, 0, SECSM_EXPREG, 
0 EXE_SECRAM 5 
604 -IMGFILCHAR, .DSTBLK_COUNT, 
605 -IMG_DST_BLOCKCIHSSL~DSTVBNI, 0, 0); 
rts] IF NOT .STATUS 
60 THEN 
08 BEGIN 
609 Hod ADDR = 0; 
1 STATUSCSTSS$V_SEVERITY) = SYS$K_INFO; 
1 SIGNAL(.STATOS); 
’ END 
1 ELSE 
1 BEG 
1 DOSTSBEGIN_ADDR = .EXE secoounes (02: 
1 DSTSEND_ADDR = Aa SECBOUNDS(1); 
' IF freon ev CONTROL BBG$V_CONTROL_TDBG) 


DSTSEND_ADDR = .DSTSBEGIN_ADDR * .TESTDSTSIZE - 1; 
DSTSNEXT_ADDR = .DSTSBEGIN_ADDR; 
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We have now mapped the DST into our (and the user's) virtual 
xt we want t9 scan the ps to find all modules in the 

preecee and to by ld the Run-Time Symbol Table’s (the RST's) Moduie Chain. 

build the Program Static Address Table (SAT) which indicates 
dresses belong to which modules, and we will build the RST 
Finally, we will determine how much RST space we need for the 
several largest modules and allocate enough free space so that their RSTs 
can be in memory at the same time. 
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First create a Module RST Entry for 


the ‘‘anon s module’’ to which we 
assian all global symbols (from the GST 


n 
) which do not belong elsewhere. 
! Global symbols are attached to this module's syee chain only as they 
; are referenced, not now when the RST is initially built. 


RSTPTR = GET_MEM(RSTSK_MODENTSIZ); 
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| 
; : RSTPTRCRSTSB-KIND) = RSTSK MODULE: 
3 . RSTPTR pat ey cane = TRUE; 
; $3 RSTPTRLRSTSB-LANGUAGE) = DBGS$K_MACRO; 
: 35 65 
3 39 65 Put the anonymous module at the start of the Module Entry RST chain. 
; 2 Re RSTSSTART_ADDR = .RSTPTR; 
: t PREV_RST_PTR = ,RSTPIR; 
: 3539 65 
3; 3540 659 ! Initialize the RST Reference List so that RSTSREF_LIST points to a List 
; 3561 660 ! of zero RST entries. This list is used by DBGSSTA_GETSYMBOL to mark which 
3 *g 661 ! RST entries are used by the current Debug command and thus cannot be re- 
; hr b6¢ moved from the RST until the command ends. 
: 3545 664 RSTSREF_LIST = GET_MEM(22); 
3 m4 665 RSTSRER LISTE) = 20; 
; mH 3666 RSTSREF-LISTC1) = 0; 
: 354 66 
; 3550 ! Create the List head for the Least Recently Used Module (LRUM) table. 
; 3551 ! This table is used by DBGSGET_MEMORY to determine what module to remove 
; 338 from the RST when more free memory space is needed. 
; 3554 LRUMSLISTHEAD = GET_MEM(LRUMSENTSIZE); 
; 3555 LRUMSLISTHEADCLRUMSC_FLINK) = .LRUMSLISTHEAD; 
3 35 $ LRUMSLISTHEAD LAUREL BL 1 = Yasin 
; ; : LRUMSLISTHEADCLRUMSL-RSTPTR] = 0; 
: 355 
; 3560 ' Set up all Source File Control Blocks and associated RMS blocks that we 
3 26) : need to do source Line dispiay. 
: 268 DBGSSRC_INIT(); 
ees 
: 3566 ! Initialize the Screen Debugging feature. 
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DBGSSCR_INITIALIZE(); 


! Zero out all entries in the Module Size Table. This table will give the 
! RST space requirements of the severe) largest modules in the DST. Also 
zero out several other counters and flags. 


INCR 1 FROM 0 TO MIN_MODS_IN_RST - 1 DO 
MOD_SIZE_TBLC.1J7= 0; 


MODULE FLAG = FALSE; 
OR COURT = 8: 
NESTING = 0; 
SSTART_ADDR = 0; 


IN 
ERR 
REC 
SAT 


If this executable image was Linked by a VMS V4.0 or Later Linker, then 
we use the Debug Module Table to initialize the RST. This is a much 
faster —4, doing the initialization than soadies through the whole 
Debug Symbol Table. If this succeeds, we set up DSTPTR so that the loop 
below to scan the whole DST is skipped. 


STPTR = .DSTSBEGIN_ADDR; 
F .(IMG_HEADER {Host LNKFLAGS])<v_(5)> AND 
yc OSTPTREDST L_MOBBEG_LANGUAGE] NEQ DST$K_BASIC) 


BEGIN 
STATUS = READ_DEBUG_MODULE_TABLE(.IMGFILCHAN, 

-IMG_DST_BLOCK, MOD_SIZE_TBLCO)); 
jf, STATUS THEN DSTPTR = .DSTSEND_ADDR; 


' 
i 
i 
D 
I 


Scan the Debug Symbol Table to find all modules in it. For each module, 
determine how much RST geece that module's symbol table will require when 
when brought into the RST. Also build its Static Address Table entries. 
Then create its Module RST Entry and put it on the RST Module Chain. 

Note that all this is done only if we did not initialize the RST from the 
the Debug Module Table, i.e. only if this is an old executable image. 


HILE .DSTPTR LSSU .DSTSEND_ADDR DO 
BEGIN 


! Pick up the DST record's type and use it as a CASE index so each 
significant kind of DST record can be processed individually. 


if .DSTPTRCDST$SB_LENGTH) EQL 0 
TYPE = 257 
TYPE = .DSTPTRIDST$B_TYPE); 


If (NOT .IN “Wy PLAS} AMO (. TYPE NEQ DSTSK_MODBEG) THEN EXITLOOP; 
ASE 1WE FROM 0 TO 257 OF 
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' Handle the error case where we have a zero length DST record 
: oy @ module. A zero Length DST record outside a module 


ee 
nN 
Ww 
~ 


NAL (DBGS_ ZERLENDST); 


' Handle the error case where we have a DST record not nested within 
! a Module-Begin/Module-End pair. Give an error message, but quit 
! printing the message if we have done so too many times already. 


IF ERROR COUNT LSS 50 THEN SIGNAL (DBGS_MISMODBEG) ; 
IF ERROR-COUNT EQL 50 THEN SIGNAL (DBGS_TOOMANERR) 
_COUNT = .ERROR_COUNT + 1; 


Handle the Module Begin record. Here we make sure we are not al- 
ready ina Ty dule (i.e., we check for nesting errors), and then 

we set ~ A \ pesaters and counters we will need to collect infor- 
mation about this module and later create a Module RST Entry. 


[DSTSK_MODBEG): 
BEG 


IF neAOBOCE FLAG e faut THEN SIGNAL(DBGS_MISMODEND, 1, .MODNAMEPTR) ; 
hos mDSIPrR = .DSTPTR rt 

= MOD. D_DSTPTRCDSTSB _MODBEG_NAMEJ; 

= 


[oe 


ANGOAGE = = NO se Slacecte. _MODBEG_LANGUAGE J; 


a vt the neeute End rocere, Build the Module RST Entry 9 i we 
module and | into the RST Module Chain. Then see 

among the sapere Largest ye -# in RST space ants ths BF so 
we remember how ou space it needs. Also Copy the Static 
Address Table entries on this module's Seanpor ery T 

the permanent Program Static Address Table chain. 


DSTSK MODEND]: 
IN_MODULE_FLAG = FALSE; 


chain over to 


' Determine how much 4h space the module needs for its symbol 
' table. Note that this includes both the space needed for RST 
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1b den-1 944 93:78:36 EOteuc. Srcdastewtnc soe a 
! and SAT entries plus one longword for memory allocation con- 

trol for each such entry. 


ASTSIZE = .NUM NUM_RST JENTS + RST_LONGS 
+ TNUM_SAT “ENTSet 1°¢ SATSK_ENTSIZE); 


' Build the Module RST Entry for the current module. 


TPTR = GET_MEM(RSTSK_MODENTSIZ); 
art L-pstPiRd = Fhe abs tpTk: 


T 
KIND) Reis 

TPTRERST ORSTSIZ f° Re Size: 

TPTR 


i 

RS 
RS 
RST 
RS 
RS RSTSB CANGUAGE 


= .LANGUAGE ; 


Link the Module RST Entry into the RST Module Chain. 


PREV. RST_PTRCRSTSL Haase = .RSTPTR; 
PREV-RST_PTR = .RSTPT 


! If the amount of RST space the module needs makes it one of 
i the several largest modules, enter it in MOD_SIZE_TBL. Note 
that the table remains sorted on module size, largest first. 


iNncR 1 FROM 0 TO MIN_MODS_IN_RST - 1 DO 
IF RSTSIZE GTR .ROD_SIZE_TBLC.1) 


BEGIN 
DECR J FROM MIN _MODS {NST -2 70 .] r 
MOD_SIZE_TBCC.J+T) = .MOD_SIZE_TBLC.J); 


MOD att TBLC.1] = .RSTSIZE; 
EXITLO 
END; 


! Copy the Static eeecoes Table entries we have built and merged 
i on the TMP_SAT_CHAIN chain (which covers the current module 
only) over to Ehe permanent Program Static Address Table. 


PREV_ SAT _PTR = SATS TART_ADOR; 

PROG. SAT"PT R = +SAT $s! TART ghvok: 
mP_SAT_PTR 1_CHRIN 

unICE TR VePY "SAT “PIR “ito” D0 * 


! Find the proper place in the permanent chain to insert the 
new entry so the chain remains sorted on start address. 


WHILE .PROG_SAT_PTR NEQ 0 DO 
BEGIN 


o=3¢ “19 :5 AX-11 Bliss<-32 V4.0-742 
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IF .PROG_SAT_PTRCSATSL_START] GTRU .TMP_SAT_PTRESATSL_START] 
EXITLOOP; 


PREV_SAT_PTR = .PROG_SAT_P 
PROG SAT“PTR = .PROG-SAT -PIRESATSL FLINKI; 


' Fill “\ noes RST pointer into the new SAT entry and 
! Link o the Phainvent Program SAT. Then step to 
! the aout The _SAT_CHAIN entry. 


NEXTSAT = . TMP w PTRESATSL_FLINK); 
TAP =34T Prats ATSL_RSTPTR] = TRSTPTR 
TMP" S ntSATSL FLINK] = .PROG_ sat _ PTR; 
PRED: SAT BTR C_FLINK) = .TMP_SAT_PTR; 
PREV V"SAT-PTR = TAP. 7 T_PTR; 

+O AT_PTR = MEATSAT 


END; ! End of Module-End-record code 
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! Handle the PSECT record. For each PSECT record we record its 

! address range in the begperery Static Address Table we are build- 
! ing for this module. at table will be copied to the prow es 

' Static Address Table when the Module-End record is found.) We 

' also tabulate that the PSECT will require a Label RST Entry. 


[DSTSK_PSECT): 
BEGIN 


GoGo G0 ad ad add ed ed ed ad 


STARTADDR = .DSTPTRCDSTSL_PSECT VALUE]; 
890 PPTR = DSTPTREDSTSA_PSECT-TRLR. BASE 
91 + ,OSTPTREDSTS8_PSECT_TRLR_OFFS; 
LENGTH = .PPTRCDSTSL_P PSECT _SIZEJ; 
STATIC ADDRESS (. STARTADDR, “\LENGTH, 0, TMP_SAT_CHAIN, TRUE); 
94 NUM_SAT_ENTS = .NUM_SAT_ENTS ¢ 1; 
95 NUM-RST"ENTS = .NUMRST-ENTS ¢ 1: 
NUM"RSTILONGS = .NUA_RST_LONGS + *RSTSK_LBLENTSIZ; 


Handle the Routine-Begin record. Tabulate how much RST space it 
requires. Also remember the routine start address in the routine 
Beare scerece Stack--we will need it when we find the Routine-End 
record. 


([DSTSK_RTNBEG): 
BEGIN 


E 
NUM_RST “ENTS. = _-NUALRST ENTS 1; 
NUM RST” =LONGS Nua RST LONGS + "RSTSK_ROUTENTSIZ; 
NUM~SAT“ENTS = .NUM_SAT_ENTS ¢ 1; 
LF gROUT. STACK_ iNDER {Ss MAX_ROUT_STACK 
ROUT_STACKC..ROUT_STACK_INDEX] = .DSTPTRCDSTSL_RTNBEG_ADDRESS) 
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ELSE IF .LANGUAGE NEQ DBGSK MACRO 
SIGNAL (DBGS_DSTNESDEP, 1, .MODNAMEPTR) ; 
ROUT STACK INDEX = ,ROUT_STACK_INDEX ¢ 1; 


> st 
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Handle the Routine-End record. Determine what address range the 
routine body covers and enter that range in the temporar 4 at BS 
Address Table we are building for the current module. (That info 
will be copied to the Program Stat c Address Table when we find 
the Module-End record.) 


DSTSK_RTNENDJ: 
BE 


te STACK INDEX = .ROUT_STACK_INDEX = 1; 
«ROUT _STACK_ INDEX LSS7O 


N 
SIGNAL (DBGS_INCDSTNES, 1, .MODNAMEPTR) 
ELSE IF .ROUT_STACK INDEX LSS MAX ROUT_STACK 


oe 


eA? 


OUT_STACKC.ROUT_STACK_INDEX); 
TRCOSTSL_RTNEND SIZEJ: 
(.STARTABOR, .LENGTH, 0, TMP_SAT_CHAIN, TRUE); 
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fbaod ape > Fh 
LENGTH STP 
STATIC. ADDRESS 
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$ ' Handle the ayenrest Block-Begin record. Tabulate how much RST 
space it will require. 
0 949 ipstsx BLKBEG): 
1 950 BEGIN 
o36 951 NUM_RST_ENTS = a+ RST_ENTS 
83 936 NUM_ RST LONGS NUA_RST LONGs "RSTSK LEXENTSIZ; 
834 95 NUM_S T7ENTS = * UR. SAT_ENT 
835 954 END; 
386 
3 939 ' Handle the Label record. Again just tabulate how much RST space 
H Hd is required for this record. 
1 960 CDSTS$K_LABEL): 
¢ 961 BEGIN 
366 NUM_RST_ENTS = .NUM_RST_ENTS + 1; 
4 96 NUM-RST"LONGS = .NUA_RST LONGS : RSTSK_LBLENTSIZ; 
5 964 NUM_SAT_ENTS = MUR. SAT_ENTS ¢ 1; 
§ 965 END; 
‘ 367 
96 ' Handle the Label-or-Literal record. If the record is for a Label, 
50 38 ' tabulate the space needed for a Label RST Entry and a SAT entr 
51 970 ' If it is for a literal, tabulate the space needed for a Data | em 
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¢ } RST Entry. 

4 tpstsk LBLORLIT): 

§ NUM_ RST = ,NUM_RST_ENTS ¢ 1; 
; Pr DSTPIRUDSTSB. VFCAGS] EQL 1 


BEGIN 
NUM_RST_LONGS = .NUM_RST_LONGS : A soahen LBLENTSIZ; 
wn SAT-ENTS = .NUM_SAT_ENTS ¢ 


ELSE 
NUM_RST_LONGS = .NUM_RST_LONGS * RSTSK_DATENTSIZ; 


SESoTERSS 
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Ps 
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} Handle the Entry-Point record. Tabulate the RST space it needs. 


3 


9 

870 

871 ! 
ore 991 COSTSK_ENTRY): 
87 99 BEGIN 
874 99 RST_ENTS = .NUM_RST_ENTS + 

75 994 NUM RST_-LONGS = .NUA_RST LONGS "RSTSK EPTENTSIZ; 
B76 995 NUM-~SAT-ENTS = .NUM_SAT_ENTS 
87 338 END; 
879 39 

4 —y the Record-Begin record. Tabulate the space needed for the 

881 4000 : pyee T Entry for the record and a possible Data Item RST Entry. 
Ht rest iy so he the current level of record nesting. 
884 400 CpsT$k RE CREJ: 
885 4004 
ty] 4005 NUM_ RST ENTS = .NUM_RST_ENTS + 2; 
88 r+ NUM-RST_LONGS = .NUA_RST LON GS + 
888 400 STSK_TYPENTSIZ + RSTSK_DATENTSIZ + 1; 
889 4008 IF .REC_NESTING GTR O THEN NUR RST_LONGS = .NUM_RST_LONGS + 1; 
890 400 REC_NESTING = .REC_NESTING + 

91 401 STATIC CHECK(. DSTPTR, STARTADDR, LENGTH, STATIC_FLAG); 
89 401 IF .STATIC_FLAG 
34 401 THEN 

94 1 BEGIN 

95 1 STATIC_ADDRESS<.STARTADOR, ex He 0, TMP_SAT_CHAIN, TRUE); 

38 1 NUM_SAT_ENTS = NUM_ SAT _ENTS + 

9 1 END; 

38 ; END; 

1 


! Handle the Record End record. Just decrement the record nesting 
depth by one. 


CDST$K RECEND): 


Le -REC NESTING LEQ Q THEN SIGNAL (DBGS_INCDSTNES,1,.MODNAMEPTR) ; 
pustims © »REC_NESTING = 1; 
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-000 -Sep- DEBUG. SRCIRSTCNTRL.B32;2 
Be 
; 391 4050 ' Handle the Variant-Set Begin record. reonere the space needed 
: aig : 1 : for one Variant RST Entry plus a component List pointer to it. 
: 3914 4 ; {DSTS$K_VARBEG): 
3 31 Z : NUM_RST_LONGS = .NUM_RST_LONGS + RSTSK_VARENTSIZ + 1; 
: 391 4 
: aig 40 $ ! Handle the Variant Value record. Note that we need 2 longwords 
3 333 4039 per variant entry plus one more for a List pointer. 
: 3921 4040 {DSTSK_VARVAL]: 
3; 39 ¢ one) NUM_RST_LONGS = .NUM_RST_LONGS + 3; 
: 3954 t00§ 
: 3925 4044 ! Handle the Enumeration T pe Begin record. Tabulate the space 
3 ; $ thee } needed for a Data Type RST Entry. 
: 3928 toc? {DSTSK_ENUMBEG): 
3; 3929 4048 4 BEGIN 
3; 39 4049 4 NUM_RST_ENTS = .NUM_RST_ENTS + 1; 
; 3931 4050 & NUM_RST-LONGS = .NUM_RST_LONGS + RSTSK_TYPENTSIZ; 
3 Rae 4051 END; 
: 39 2088 
: 935 4054 ' Handle the Enumeration Type Element record. Tabulate the space 
; Bee $322 : needed for one Data RST Entry plus a longword pointer to it. 
.) re tostsx EMumeL: 
: 3940 4059 4 NUM_RST_ENTS = .NUM_RST_ENTS ¢ 1; 
3 3941 4060 4 NUM_RST-LONGS = .NUM_RST_LONGS + RSTSK_DATENTSIZ + 1; 
3 nee 4061 END; 
: $e 406 
: 945 6064 ' Handle all Data Symbol records. This includes the Bliss special 
3 | 4065 ' cases, the Boolean record, and the Separate Type Spec record. for 
3; 394 $008 ! each, tabulate the amount of RST space needed for the data symbol 
3; 3948 406 ! and make a Static Address Table entry if this is a static data 
3 3e8 £068 } item. 
: 3951 4070 CDSCS$K_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST, 
3 926 4071 DSTSK_BLI, 
3; 39 407 DSTS$K_BOOL, 
3 35954 407 DSTSK_SEPTYP): 
3; 3955 4074 4 BEGIN 
3; 395 4075 4 NUM_RST_ENTS = .NUM_RST_ENTS + 1; 
3; 395 4076 4 NUM-RST-LONGS = .NUA_RST_LONGS ¢ RSTSK_DATENTSIZ; 
: 395 4077 4 IF sREC"NESTING GTR 0 THEN NUM_RST_LONGS = .NUM_RST_LONGS *¢ 1; 
3; 395 4 8 4 STATIC_CHECK(.DSTPTR, STARTADDR, LENGTH, STATIC_FLAG); 
3; 3960 4 4 IF .STATIC_FLAG 
: $963 tos, THEN BEGIN 
: 908 40 § STATIC_ADDRESS(.STARTADOR, .LENGTH, 0, TMP_SAT_CHAIN, TRUE); 
3 3964 re NUM_SAT_ENTS = .NUM_SAT_ENTS ¢ 1; 
3; 3965 4084 4 END; 
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' Rendie the BLISS field record. Here we allow for one Data Item 


: RST Entry. 
{DSTSK_BLIFLD): 
BEGIN 


NUM_RST_ENTS = .NUM_RST_ENTS ¢ 1; 
NUM_RST_LONGS = .NUM_RST_LONGS + RSTSK_DATENTSIZ; 


! Handle the COBOL special cases. Tabulate the space needed for one 


: Data Item RST Entry. 
CDSTSK_COB_HACK): 
BEGIN 
NUM_RST_ENTS = .NUM_RST_ENTS + 1; 
NUR_RST_LONGS = .NUM_RST_LONGS + RSTSK_DATENTSIZ; 
For all other records, we do nothing. 
CINRANGE]: 


TES; 


: Advance the DST pointer to point to the next record. Then loop. 
DSTPTR = DSTPTRCDSTSA_NEXT] + .DSTPTRCDSTSB_LENGTH); 
ENP; ! End of WHILE loop over whole DST 
f we come out of the loop but we are still in a module then 
hen the module end record was missing. Signal an error. 
. IN_MODULE _FLAG 

SIGNAL (DBGS_MISMODEND, 1, .MODNAMEPTR); 


oF to 


! Now initialize the RST Hash Table and enter all module names in it. 
Note that we omit the anonymous module. 


inCR J FROM 0 TO RSTSK_HASHTBLSIZE - 1 DO 
RST HASH TABLE(3®.1] = RSTSHASH TaBLEL2« 1); 
RSTSHASH_TABLE #,] + 1) = RSTSAASH_TABLEL2*.1); 


RSTPTR = .RSTSSTART_ADDR; 


K 16 
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; 4023 1128 RSTPTR = OS TP TOL RS TS. MATROOPTRD: 

; Pr ¢ ere we ee NEQ 0 DO 

3 4 § 4145 DBGSNASH_ INSERT RSTPTR); 

3 4 oie RSTPTR = -RSTPTRERSTSL_NXTMODPTRI; 

+ = 

: 4 414 

; 4031 4150 ! Also create a global symbol SHARESxxx in the RST for each shared image 

; 40 ¢ 4151 ' xxx in the current execution. This allows the user to see the start 

; 40 A § ! address of each shared image (actually every image whether shared or 

3 rt ¢ ot ? not) in the execution. 

: 49 4155 i Note: Shareable image format in VMS 4.0 (3B) is different from 

3 rt 4137 : vMS 3.0. So we call different routines depending on the system. 

3 4039 4158 if .DBG$GV_CONTROLCDBG$V_CONTROL_VERSION_4) 

3; 4040 4159 THEN 

3 4041 4160 SHARED_IMAGE_NAMES(. IMGF ILCHAN) 

; reed | 4161 ELS 

3 ri ob 2196 SHARED_IMAGE_NAMES_V3(.IMGFILCHAN); 

> 6065 4164 

3 che rt +4 Build RST entries for all Global Symbols in GST. 

; $88 ci6? if NOT DBGSGST_INIT(.IMGFILCHAN, 0, .RSTSSTART_ADDR) 

; 4050 4169 SIGNAL (DBG$_NOGLOBALS) ; 

> 405 4171 

3 405 $16 ' Determine how much free — space we need to accommodate the RST's of 
3 4054 417 ' the largest several modules plus enough working space. f we don't have 
3; 4055 4174 ! that much, we expand the free memory pool (via DBGSEXPAND_MEMORY) so that 
3 405 4175 ' we will have enough. Note that if we cannot expand the pool that much 

; 605 ott ' (i.e, if DBGSEXPAND_MEMORY fails because the system cannot come up with 
; 4058 417 ' the extra virtual address space), we scale down the request by one module 
; 4059 4178 i at a time and try again--hence the WHILE Loop here. 

: 4061 4180 LONGS_NEEDED = 8192; ! 32K bytes of working space 

3; 406 4181 INCR T FROM 0 TO MIN_MODS_IN_RST - 1 DO 

3 rts t4 } § LONGS_NEEDED = .CONGS_NEEDED + .MOD_SIZE_TBLC.1); 

: 4065 41 LONGS NEEDED = .LONGS_NEEDED - DBGSFREE_MEM_LEFT(); 

3 4066 4185 MST_IRDEX = MIN_MODS INAS: 

: ? 2 WHITE .LONGS NEEDED GTR~100 DO 

: 6 41 8 STATUS = DBGSEXPAND_MEMORY( .LONGS NEEDED); 

} rth 3 ae tears et gl pee EQL 0) THEN EXIfLOOP; 

> 4 ® ee os 

: 407 4191 LONGS_NEEDED = .CONGS_NEEDED - .MOD_SIZE_TBLC.MST_INDEX); 

i = 

3 41 

2 aBr5 ti98 ! The DST and RST are now initialized, the Program Static Address Table is 
3; 407 ths ' built, the RST Hash Table is built, and the necessary free acnery has 

: c078 419 ' been acquired (if it was possible). We now set up the Scope List with 

; 4079 4198 ' the default scopes. 


RSTCNTRL 18-50 “1 $3: AX-11 Bliss-32 v4.0-76 p 
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4 1 ! 

rt ; DBGSRST_SETSCOPE(UPLIT(O), RSTPTR); 

4 

49 j ! Now search the Static Address Table for the module with the transfer 
rt 5 : : address so we can SET that module. 

res $4 RSTPTR = 

40 SATPTR = OF ATSSTART ADDR; 

peed WHILE -SATPTR NEQ 07D 

4091 1 IF Reyes 4 4 tit GEQ Rat ot ee A AND 
4 ¢ 1 * TRANSF ER- ADDR LEQ .SATPTRLSATSL_ENDJ 

4 1 THEN 

4094 1 BEGIN 

thee ; ORITLOOP - SATPTRCSATSL_RSTPTRI; 

t099 1 : 

4098 1 

4099 1 

4 1 

4 

4 

4 


module in the RST (and DST) instead. 
it -RSTPTR EQL O 
THEN 


SSLESRENLS 


BEGIN 
RSTPTR = .RSTSSTART_ADDR; 
ge = RSTPTRCRSTSL _NXTMODPTRI; 


If we are in SUPERDEBUG, look up sa pots grin in the GST and set its 
address in the current PC. the lookup fails, we die right here. Also 
set the language to BLISS and do not SET any iaitisl module. 


—b >) 4 2 = 


MEW (OOOO VEWN “OOO OUEWN Oo 


Noa ee 


hein CONTROL CDBGSV_CONTROL _SDBG) 


"ees NHERENAME = UPLIT B 


ate Ms naeateel ds 
= DBGSSTA_LOOK - et ME); 


E 
EN gps foe 
BGS -NOSYMBOL, 1, BEGINHERENAME); 


-DSTPTRCDSTSL VALUE) + 2; 


Now actually SET the selected module and build it ts RST. Also print the 
start wessege. and set the Language | code accord ngly. Note that the 
module must pe 3F efore we can use its lan nguage gogecathe Language code 
Reap pEBUG MODULE _TABLE did the RST 


yo oe oY oY ot ot ot ot ot ot ot ot ot ot ot ot ed ot et ee 
ee a ee ce a ee ee a a a a ce a ce a a ea a a a el a a a a el ce 


is not set i tialization. 


iF .RSTPTR NEQ 0 


Foy oY oY oY ay at at at nt ot ot at tt at ak ak ak a ah a UE aE aah ah a ah a ak ah hh eh hk eh eh ee 


4 
4 
4 ‘ 
END; 
SATPTR = .SATPTRCSATSL_FLINKI; 
END; 
! If we did not find the module with the transfer address, we SET the first 
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RSTCNTRL 4 02:53:41 AX-11 Bliss-32 v4.0-742 Page 123 
yous000 1 ~3e07 138% 95:73:53 DEBUG. SRCIRSTCNTRi .B 3222 ; : att ) 
3: 4137 4 § THEN 

3; 41 5 4 BEGIN 

3; 41 4 8 pare letnst sy MODSET] = TRUE; 

; 4140 4 DBGSRST_BUILB( .RSTPTR TRUE i 

7 4141 4260 DBGSSET“LANG(O, ,RSTPERLASTSB_LANGUAGE)); 

; big 4261 DSTPTR = RSTPERERSTS, _OSTPTRI; 

3 4146 & $6 SIGNAL (DBG$_INITIAL 

$ 6144 426 DBGSLANGUAGE ( -RSTPTRERSTSB_LANGUAGE J), 

8 ater ? rt: a DSTPTRCDSTSB_MODBEG_NAME)); 

ie 

: 4143 2 és : If no module could be SET, modify the initialization message accordingly. 
: 4151 4 $3 

3 41 ; 4271 BEGIN 

3; 41 427 SIGNAL(DBGS_INITIAL, 2, DBGSLANGUAGE ( .DBG$GB_LANGUAGE) 

: $136 4 3 a UPLIT BYTE(ZASCIC ‘no module')); 
3 615 4275 j 

3 4137 427 

3; 4158 427 ! If we saw a ‘"TRANSFERSADDRESS"’ DST but it specifies the same address 

3; 4159 4 8 ! as TRANSFER_ADDR, set the global back to zero - we do not need to 

3 res ? 3 do anything special. 

: 416¢ 4 ei if ;DBGSGL_TRANSFER_ADDRESS+2 EQL .TRANSFER_ADDR 

: 4164 4 58 DBGSGL_TRANSFER_ADDRESS = 0; 

: 4166 4285 ; is 

3; 416 & $ ! Check for the presence of the special ‘TRANSFERSADDRESS” DST 

; 4168 4 ! which tells us that we did not come up at the true start of the 

3 $198 4 ! main program. If it was present, signal an informational and 

: oi ? 4 : set a break at the main program. 

; 417 4 91 iF _;,BGSGL_TRANSFER_ADDRESS NEQ 0 

> 4174 429 BEG! 

3 4175 429% LOCAL CMD STRING: REF VECTORC BYTE); 

: 178 £596 CAD NSTRING = DBCECET MEMORY (10) 

. Ss . 

3 4178 4 39 CHSROVE (3 LIT (ZASCII "SET GBREAK/TEMPORARY TRANSFERSADDRESS'), .CMD_STRING); 
> 6179 4 38 CMD_STRING(36) = 0; 

3; 41 4 DBGSNCIS_ADD(.CMD_STRING, 36, CIS_INPBUF, 0, 0, 0); 

; 6181 4300 END; 

188 £303 

: re : : 5 : The RST initialization is done. Now return. 

: 61 4305 RETURN; 

: 3] ¢ EN 

> INFO#250 L1:3773 

3 voles ed LOCAL symbol PTR is probably not initialized 


Referenced LOCAL symbol RST_ENTS is probably not initialized 
INF 08250 ympot 3803 


CEREA ia eh ee mci AN ee SAT aE 


RSTCNTRE 
-000 


:Isfeaeggre voce 


ura 
INF O#250 
Gererguses LOCAL 


; INFO#2S 


Tereetesee LOCAL 
verecscnee LOCAL 
Cerecsores LOCAL 
Getereoses LOCAL 
ine SeS35"¢ LOCM 
ine SeS55¢ (OOM 
inrseesprs ‘OCA 
ver ecse ed LOCAL 
vesecsegee LOCAL 
Petersoced LOCAL 
the ed LOCAL 


sesececsee LOCAL 


Referenced LOCAL 
INF O#250 
veseosehee LOCAL 


pay LOCAL 
Goterse ed LOCAL 
INF O# 


Refer ae LOCAL 
ira we 
INF O#S50 

Ter eosehee LOCAL 
INF 


; Gesecscced LOCAL 
; Ter eosehee LOCAL 
; Cetorgoced LOCAL 
; vores ed LOCAL 
; Referenced LOCAL 


symbol 


1B-sep-19 4 t 96:33:31 


14-Sep-1984 
NUM 5] -LONGS is probably not initialized 
AT_ENTS is probably not initialized 
D PTR is probably not initialized 
LAN AGE is probably not initialized 
THP AT_CHAIN is probably not initialized 
Num Bal -ENTS is probably not initialized 
p TENTS is probably not initialized 
w_R L.LONGS is probably not initialized 
WR T_ENTS is probably not initialized 
hum RST_LONGS is probably not initialized 
AT_ENTS is probably not initialized 
ROUT STACK. INDEX is probably not initialized 
L AGE is probably not initialized 
ROUT TACK_INDEX is probably not initialized 
NUM RST ENTS is probably not initialized 
NUM_RST_LONGS is probably not initialized 
RUA ENTS is probably not initialized 
NUM RST ENTS is probably not initialized 
NUM ee] LONGS is probably not initialized 
NUM SAT. ENTS is probably not initialized 
we 5- ENTS is probably not initialized 
RST_LONGS is probably not initialized 
Num AT_ENTS is probably not initialized 
RST_ENTS is probably not initialized 
H_RST_LONGS is probably not initialized 
N_SAT_ENTS is probably not initialized 
RST ENTS is probably not initialized 
BSt_.LONGS is probably not initialized 


NUM_SAT_ENTS is probably not initialized 


AX-11 BLi 
DEBUG. SRC 


RCIRS 


=3 
RST 


2V 
STCNT 


-0-742 
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saat 


Se Se Se Oe Fe Ge Oe Oe Se Se Oe Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Se Oe 


at 
4 


se 
NeSeR 


f ed 
z Ones 


INF OR 250 
Referenced 


LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 
LOCAL 


50 4D 45 54 
24 52 45 46 


symbol 
symbol 
symbol 


ae 
nh 3 
R 


-$ep-1984 
1$-se0-1944 


3% 
T_LONGS is probably not initialized 
$- LONGS is probably not initialized 


' RSILENTS is probably not initialized 


T_LONGS is probably not initialized 


M_RST_ENTS is probably not initialized 


-LONGS is probably not initialized 


M_RST_ENTS is probably not initialized 


Lis 
NUM ET =LONGS is probably not initialized 
Nun AT_ENTS is probably not initialized 
nun RSI ENTS is probably not initialized 
Nu Ag, tones is probably not initialized 
Num TENTS is probably not initialized 
‘NUM_RST_LONGS is probably not initialized 
.PSECT 
54 53 44 03 00100 P.AAO: .ASCII 
00000000 00104 P.AAP: .LONG 
48 4E 49 47 45 42 09 00108 P.AAQ: ASCII 
64 6F 6D 20 6— 09 Oort2 P-AAR: .ASCII 
$3 2 42 20 54 45 53 OO11C P.AAS: ASCII 
2 54 2 9 52 41 §2 00128 
53 45 52 44 44 OO13A 
BEGINHERENAME= 
.PSECT 
OFFC 00000 SENTRY 
SE FECC CE 9€ 0000 VAB 
90000 0° EF Dé 000 CLRL 
99 90 ' EF D4 LRL 
000000" EF 1 CLRO 
52 C AC D 1 VL 
05 1 1D BEQL 
04 A2 : 1F TST 
E é BNEQ 
0002834A BF DD 1$ PU SHL 
000000006 00 1 FB A CALLS 


93:78:36 


AX-11 Bliss-32 V4.0-742 
DEBUG. ER RCIRS ASTENTR L.832;2 
DBGSPLIT,NOWRT, SHR, PIC,0 
<3>\DST\ 
<9>\BEGINHERE\ 
<9>\no 


module\ 
\SET BREAK/ TEMPORARY TRANSF ERSADDRESS\ 


P.AAQ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSRST_INIT, Save R2,R3,R4,R5,R6,R7,RB,RI,~; 


R10 117 : 
=3 8 (SP) SP : 
RSTSSTART_ADDR : 
SATSSTART~A ; 
DSTSBEGIN-ADDR : 
ING _HEADER, : 
4(R2) : 
2$ : 
a6 682 : 

LIBSSIGNAL ; 


roe 


3401 


i 


: 3548 
S 3547 


<z 


| : 
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; 046 =A 3¢ 28: MOVZWL 4(R2), IMG_DST_BLOCK ; 3558 : 
5 ADDL 2 R2, IMG_DST BLOCK : : 
4 08 A ) MOV UL (inc_pst_ BLOCK), DSTBLK_COUNT i $559 : 
00000000' FE o1 D F MOVL #1, OSTSBEGIN ADDR. : ; 
2 6 ? 46 3$: CMPL (1AG_DST. BLOCR), + 3566 ; 
9000000" EF 4 oooce Fe Seresegin Agen : 
22 199000006 0 €9 1 4$: BLBC DBGSGV CORTROL 58 : 3574) : 
0000000' f D3 a Ist DSTSBEGIN. ADD : ; 
53 DD PUSHL IMG_DST_BLOCK + 3577 ; 
08 ac OD PUSHL FILENAME : 3 
a 85 OB 000Gk mot: RO. TESTBersTie— 
20 oer oF 906p OVA BTECRS). RO ; 3578 ; 
54 0 00000200 8F ¢C 90 DIVL Be, RO, DSTBLK_COUNT : | : 
00000000" f b5 007A 5$: Ist pst EGIN_ADDR ; 3585, ; 
00028053 BF pb 0082 PUSHL #163923 ; 3587) ; 
FO AD C8 BF 9A OOOBA 68: MOVZBL ip EX E5§ SECBOUNDS ; 3598 | ; 
ie AD 40000000 er 00 MOVE f ite 1824. sxe SECBOUNDS +4 : 399 ; 
EC AD 00000000° i i NOVAS P AAO MERE _SECRAM_DESC+4 ; 601 ; 
5 OD PUSHL  (IMG_DST_BLOCK) ; 3605 3 
4 00 PUSHL DSTBCK_COUNT 3 3604, : 
04 Ac pp PUSHL INGE ILCHAN : | ; 
7E 7C cLRO. = ; 3602 | ; 
£8 AD 9F PUSHAB if TSECNAM_DESC : | ; 
00020000 8F oD PUSHL 1 : ; 
—E 04 CLRL ; ; 
FO «OAD OOF PUSHAB EX e. SECBOUNDS : : 
F AD 9F PUSHAB EX “SECBOUNDS 3 3 
000000006 00 o¢ FB CALLS SYSSCRMPSC ; | : 
” "ee 44 SUBS Rossi teat + 3606 | : 
00000086" F D4 CLRL eta ADDR > 3609 | : 
24 «OA 03 00 3 FO INSV #3, STATUS : 3610) 3 
24 AE DD PUSHL : 3611) : 
000000006 00 i FB CALLS i UF BSSIGNAL Pat : 
00000000° - FO AD 4} mova Bessey COntRat DSISBEGIN ADDR ay : 
roses 33 00 88 88 0000% EF 1 ADDL 3 DST EGIN-ADDR TESTDSTSIZE, RO ; 620 | : 
90000000" EF 00000000" FF DO MOVL DSTSBEGIN. ADDR, DSTSNEXT_ADDR ; 3623 : 
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7 F3 0060 AOBLEQ #5, I, 71$ : | 
000000006 8 $3 F “ CALLS 40, DAGSFREE_MEM_LEFT 7 4186 
4 ¢ EA SUBL2 RO, LONGS NEEDED : | 
3 06 D oF MOVL #6, MST_IRDEX + 6185. 
00000064 8F 24 b} FQ 728: cre. NGS_NEEDED, #100 ; 4186 
F DD re PUSHL LONGs iat + 6188. 
000000906 00 eB $f CALLS b86 EXPAND _MEMORY : 
0D 24 At E8 007 BLBS mint 5 + 4189) 
D5 0070A TSTL MST_INDEX : 
13 0070C BEQL ; 
07 007 DECL. mST_INDEX + 4190. 
54 DO AD4 ce 71 SUBL2 MOD~SIZE_TBLCMST_ INDEX], LONGS_NEEDED : 4191 | 
09 11 0071 BRB 72$ + 4186 | 
38 ME 9F 00717 73$:  PUSHAB RSTPTR : 4200 
00000090' cf 9F OO7IA PUSHAB P.AAP : | 
0000v CF 2 FB 007 9 CALLS #2, DBGSRST_SETSCOPE ; 
38 «= AE «D4 007 CLAL : 4 06 
50 00000000' fF 09 0728 MOVL ATSSTART_ADDR, SATPTR : 4207. 
A 13 0072F 74$:  BEQL + 4208 | 
04 Ad 10 Ac 01 00731 CMPL §_ TRANSFER_ADDR, 4(SATPTR) + 4210 
OF 19 00736 BLSS : 
08 ad 10 A pi 007 8 CPL TRANSFER_ADDR, 8(SATPTR) ; 4211 
38 SAE 0c Ad 00 907 F MOVL 12(SATPTR), RSTPTR + 42146 
05 11 00744 BRB + 4213) 
50 60 00 0746 75$:  MOVL  (SATPTR), SATPTR + 4218. 
E4 11 0074 BRB 74$ : 4208 
38 «AE 05 00748 76$: ~—=sSTSTL RSTPTR > 4225 | 
7 («1 O74 BNEG 7 : 
38 Ac 00000099" EF D 075 MOVL RSTSSTART_ADDR, RSTPTR : 4228 
5 AE 00 00758 MOVL  RSTPTR, + 4229 | 
38 Ar 10 ad 00 O75¢ MOVL 16(RO) : 
47 000000006 0 01 4 761 77$: BBC 2 dBESGY CONTROL. 79$ ; 4237 
000000006 00 er 01 4 Oper Chis. it Reto. GBL i a1 | 
38 ry 0 OD 74 MOVL 3 
5 38 AE DQ 00774 move f ster 3 4262) 
00000000' f i d PUSHAB $F menue : 
000281F8 8F DD 007 PUSHL #16434 4 : 
000000006 FB 007 f CALLS 1B$S1GNAL : 
0c A2 00 00795 78$: MOVL T3ing) DSTPTR + 4243 
000000006 00 03 A? C1 00799 ADDL3 (BSTPTRY” DBGSRUNF RAME +64 + 4244 
DP OPAL crate aes 
000000006 00 0 FB 7A6 CALLS oy POBGSSET LANG 3 | 
38 AE 04 007 LRL f : 4 46 
52 AE ft 780 79$: ROVE tis R2 : 42055 
28 «a2 1 88 00786 BISB2 #1, 40(R2) : 4258 
1 DD 007BA PUSHL #1 > 4259 | 
£48E F 3 fet CALLS #3 BGSRST_BUILD 
St 29 Ad 9A 007C mOVIBL 4 trop = (SP) > 4260 
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; Routine Size: 2131 bytes, 
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000000006 Q 
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000000006 00 ; 

000000006 90 1 
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00000000" EF 4 
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oe 


SIV OD SMO 


NWOT TO 19 090 9 T9900 "00-000 "9 
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Oe a08eg 83$: 
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ibss fein 03:84 


R 
GB_LANGUAGE 
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=(SP) 
LANGUAGE 


Bevel tor~—B i 


zz ROUTU® 
Sos Cee eee So ee 


3851 
LIBSSIGNA 
DBGSGL TRANSFER ADDRESS, RO 
4 TRANSFER_ADDR 


DBGSGL_TRANSFER_ADDRESS 
GS$GL_TRANSFER_ADDRESS 


Geese oO 


$795 
LIBSSIGNAL 
#1, DBGSGET_MEMORY 
CMD_STRING 
P.RAS, (CMD_STRING) 
Sips: STRING) 


-(SP) 


CMD_STRING 
#6, “DBGSNCIS_ADD 


Page 1 : 


(1 
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4297 
4298 | 
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-000 1 =3007 1382 95:73:54 DEBUG. SRCIRSTCNTRI .B32:2 . (16) 

; 2139 ? ! GLOBAL ROUTINE DBGSRST_MOST_RECENT(MODRSTPTR): NOVALUE = 

: 4196 4310 1 | FUNCTION 

3; 41 43511 7! This routine marks a specified module as being ere Most Recently Used 

: 2132 & 1g ,? pogule among the somes currently in tne Run-Time Symbol Table (RST). 

3; 4195 $315 1! This is done by searching for the module in the LRUM (Least Rec wtly 

3 cigs 435146 1! Used Module) seete and moving $s LRUM entry to ene first poets on in 

3 419 4315 1! the table. If no LRUM entry exists for the specified module, a new 

3 PRPs ? 1 : entry is created and inserted at the beginning of the table. 

: 4 4 18 1 The LRUM table is a doubly Linked List of entries, where each entry 

: 6201 431 7! represents one module cerronsty in the RST. The list is orgered by 

34 § 4320 1! pooeney of reference, so that the first module on the List is the most 

; 420 4321 1! recently referenced and the Last is the Least Recently Used. This 

3 4206 & ¢ 1} routines moves entries to the beginning of the List--this keeps used 

3 : 05 : Z : : modules away from the Least Recently Used slot at the end of the List. 

: 4 O° 4325 1} When more a7 is needed in the free memory peek: DBGSGET_MEMORY will 

: 4208 4 $ 1! use the LRUM table to find the Least Recently Used Module. That module 

3; 4209 4 1! is then removed from the RST so that its RST space can be reused. The 

: 4210 4 3 1! Most Recently Used module will never be removed, however; this prevents 

3 2 1} ? ; : } a module from being removed while its own RST is being built. 

: 4 ig 4331 1 § INPUTS 

3 4214 4 § 7 ! MODRSTPTR = A pointer to the Module RST Entry for the module to be 

3 : HF : ; } marked as being Most Recently Used. 

: 2519 4335 1! OUTPUTS 

3; 4218 4 $ 1! NON 

: 2590 ri a 

: 4221 4 § BEGIN 

3: 6 4 4340 

3 4 4341 MAP 

3; 42246 4 § MODRSTPTR: REF RSTSENTRY; ! Pointer to Module RST Entry of the 

: 4225 434 : Most Recently Used module 

: ¢ $ 4 : CAL 

3 4228 4 6 BACKPTR: REF LRUMSENTRY, ' Pointer to previous entry on LRUM List 

3 4 4 FORWPTR: REF LRUMSENTRY, ! Pointer to the next entry on LRUM List 

; : $ ? rh PTR: REF LRUMSENTRY; ! Pointer to the current LRUM entry 

i 

: 4 4 iH ! If the specified module is already marked as being the Most Recently Used 

3 2 5 : 27 } module, return right away. 

; 4 4 y iF .MODRSTPTR EQL .LRUMSMOST_RECENT THEN RETURN; 

: 6 4 

3; 4260 4 33 ! Search the whole Least Recently Used Module List for the MODRSTPTR module. 

3 ; rt ? 23 Exit the loop with PTR pointing to the corresponding LRUM entry. 

t 626 4361 PTR = .LRUMSLISTHEADCLRUMSL_FLINK); 

3 4246 4 § WHILE TRUE DO 

: 46245 4 BEGIN 

3 6246 4 


d 2 
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| Yoec000 13-808- 1382 95:33:52 DEBUG. SRCIRSTENTRi .B 32:2 9° 16) 
3: 46267 4 

3; 4246 4 ! If we have come to the end of the List, the specified module is not on 
3; 4 08 & ! the LRUM List. If so, create a new LRUM entry for the MODRSTPTR mod- 
: : ? ? : ule and exit the search loop. | 

i 4 ¢ 4 if PTR EQL .LRUMSLISTHEAD 

: 4254 4 i BEGIN 

; 4 5 $ é IF NOT .MODRSTPTRCRSTSV_MOD_IN_RST] 

; 4 5 ‘ ‘ SDBG_ERROR('RSTCNTRL\RST_MOST_RECENT'); 

: 4 § 4 4 PTR = DBGSGET_MEMORY(LRUMSENTSIZE); 

; 4260 4 4 PTRCLRUMSL_RSTPTR] = .MODRSTPTR; 

: 4261 4 & EXITLOOP; 

3 4 $6 4380 ; 

: o5ee t38 

; 4265 438 ! If this is the desired LRUM entry, unlink it from the doubly Linked 
: : 08 : rf: List and exit the loop. . Che ey 

; 4268 4 4] if -PTRCLRUMSL_RSTPTR) EQL .MODRSTPTR 

: 2598 t3a8 2 THEN EGIN 

> 427 1389 6 FORWPTR = .PTRCLRUMSL_FLINK); 

: 427 4390 4 BACKPTR = .PTRLLRUMSL_BLINK]; 

> 427 4391 4 FORWPTR LROMSL BLINK) = ,BACKPTR; 

3 42746 4 5 4 BACKPTRLLRUMSL_FLINK] = .FORWPTR; 

3; 4275 4395 4 EXITLOOP; 

1 ett - 

> 4278 4396 

: ? Le 4 6398 We have not found it yet--Link on and Loop. 

3 ‘ H 4399 pTR = ,PTRCLRUMSL_FLINK); 

: 4 4401 ; 

3 4 Si 440 

3; 4285 te08 ! We now have the desired LRUM entry. Link it into the Goubty Linked LRUM 
3 4 36 4404 ' List in the Most Recently Used position. Also set LRUMSMOST_RECENT to 

: Hf $629 } point to the specified Module RST Entry. Then return. 

3 4289 rh] FORWPTR = .LRUMSLISTHEADCLRUMSL_FLINKI; 

3: 4290 $658 BACKPTR = .LRUMSLISTHEAD; 

3: 4291 44 PTRCLRUMSL_FLINK] = .FORWPTR; 

3; 4 4 4410 PTRLLR L ter = ,BACKPTR; 

3 429 4411 FORWPTRCLROMSL BLINK] = .PTR; 

: 62946 red | BACKPTRLLRUMSL_FLINK] = .PTR; 

3 4295 441 LRUMSMOST_RECERT = .MODRSTPTR; 

3 4 38 4414 $ 

; 429 4415 

; 46298 4416 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
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Pe SRR ae oe: ELE REE - SE ore i ; a 
esrogm tm 03: 3:4! AX-11 Bligs-32 V4.0-762 Page 0 RS 


14 
-Sep-1 DEBUG. SRC RSTCNTRi.B32; 2 (16 


(4D SF 54 53 52 ef rt 2 23 tf $3 ef 33 a rg 10 P.AAT: ASCII <246>\RSTCNTRL\<92>\RST_MOST_RECENT\ $ 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


007¢ -ENTRY DBGSRST_MOST_RECENT, Save R2,R3,R4,R5.R6 ; 4308 ; 
pp coo” Sh is amas: iam] 
04 5 e CPL R>. Ons runahosi RECENT : ; 
52 00 $ D 13 MOVL @LRUMSLISTHEAD, PTR : 4361 : 
66 ; i 17 1$: cMPL PTR, LRUMSLISTHEAD + 4370 ; 
15 28 AS 1 1 BBS 40(R5), 2% + 4373 : 
00000000" €F SF f PUSHAB Phat > 4375" ; 
1 0D 7 PUSHL @# : | : 
00028362 BF DD 9 PUSHL #164706 : | 
000000006 00 ; FB F CALLS , LIBSSIGNAL ; | 
DD 00036 28: PUSHL ; : 4377 
000000006 Q 1 FB 00 CALLS a. DEGSGET _MEMORY ; | 
9 0 O3F MOVL . : 
08 A DO 00042 MOVL * BLPTR) : 4378. 
1711 0046 BRB + 4372) 
55 08 A2 01 004 3$: CMPL B(PTR), RS + 4386. 
Of 12 0004C BNEQ : 
53 6 7D 0004€ MOVO (PTR), FORWPTR + 4389) 
04 Ad 54 00 00051 MOVL BACKPTR, 4(FORWPTR) : 4391. 
64 53 bo 00055 MOVL FORWPTR, (BACKPTR) > 4392 | 
05 11 00058 BRB : 4388 | 
52 62 DO O005A 4$: MOVL (PTR), PTR : 4399. 
BS 11 00050 BRB 1$ + 4362) 
53 00 86 09 O05 5$: MOVL § @LRUMSLISTHEAD, FORWPTR > 440? | 
54 $6 p 0065 MOVL §LRUMSLISTHEAD, BACKPTR > 4408 | 
6 D 00066 MOV FORWPTR, (PTRS + 4409 | 
06 A DO 00069 MOVL PTR, 4 (FORMPTR) t 6411 | 
64 D 0060 MOVL pyr. (BA : rad 
046 Ab p 0070 MOVL = RS, LRUMSMOST RECENT 7 4413) 
4 00074 6$: RET : 4416) 


3; Routine Size: 117 bytes, Routine Base: DBGSCODE + 23C0 


. 


a Reeds SEER Ree Fe ae ee es. Se ee see eae 


——____ ----—_—__-—_—_ - SS 2S >>| > OO — 


000¢ 00000 ENTRY DBGSRST_NEXT_DST, Save R2,R3 : 4417 


; Ff 2 
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You5000 18-308- 1382 95:33 :5) DEBUG. SRCIRSTENTRE .B 3222 . (17) 
; : <a GLOBAL ROUTINE DBGSRST_NEXT_DST(PASSED_DSTPTR) = 
:6 44 i FUNCTION 
3 4 44 4 This routine searches the neyed DST onery list for a matching 
3 4 44 ' “real OST p¢ nter. If it find one it returnes the address of the 
3 4 44 ! next DST. f not it returns the next DST as calculated using the 
3; 4 44 : Length. 
3; 4 44 : 
; 4308 44 ae | 
3 4 +4 “re } PASSED_DSTPTR = The DST pointer to look for. Passed by value. 
: 6311 44 i OUTPUTS 
3 4 \§ 44 ! Returns the "‘next’’ DST pointer. 
3: 631 44 : 
3 4314 44 
3; 4315 44 BEGIN 
: 4 16 44 
3 431 44 LOCAL 
; 4318 44 DSTPTR: REF DSTSRECORD ' 777 
; . 33 + MOVED_DST_ENTRY: REF MOESRECORD; 72? 
: 4321 44 - 
¢ 4 ; 44 
: ? Z ant Assure ourseives that it is ‘‘real'’. 
: 6325 444 DSTPTR = DBGSRST_DST_PTR(.PASSED_DSTPTR); 
3 4326 444 MOVED_DST_ENTRY = .DBGSGL_MOVED BST_LIST_HEAD; 
3 4327 4444 WHILE” .MOVED_DST_ENTRY NEGA 0 DO 
: 4328 4445 BEGIN 
; 4329 444 
; 4350 444 
; 4331 4448 ! Check if we've found it and return the ‘‘next’’ one. Make sure it 
¢ : $ ree} } hasn't moved 
: 7 ¢ $63) if .DSTPTR EQLA -MOVED_DST_ENTRYCMDESL_REAL_DSTPTR) 
: . $ uu RETURN DBGSRST_DST_PTR(.MOVED_DST_ENTRYCMDESL_NEXT_DSTPTR)); 
: 1338 4455 
3; 4339 445 ' Next! 
: ri nit 445 : 
3 - 1 $328 MOVED_DST_ENTRY = .MOVED_DST_ENTRYCMDESL_FLINK); 
: c3e8 4460 END; 
3 6344 4461 
» 4345 446 
3 P $ rere We didn't find anything. Make sure it hasn't moved. 
: r : oe? RETURN DBGSRST_DST_PTR(DSTPTRCDSTSA_NEXT] * .DSTPTRCDSTSB_LENGTH)); 
: 4350 446 END; 
' 
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: Routine Size: 51 bytes, Routine Base: DBGSCODE + 2435 


Ax-11 Otis s- 
DEBUG. SR cis 


Ot be STPTR 
bets 


1 
( 
1 
a 


i 


MOVED_DST_ENTRY), 


§ 
D 
( 
1 


DST 
STR "MOVED, DST_LIST_HEAD, MOVED_DST_ENTRY 


+ DST_PTR 


32 v4.0-74 
euYRi BSoe2 


STPTR, 8(MOVED_DST_ENTRY) 


(MO 


si TPTR 
RO) 
- D 


VED_DST_ENTRY) 


RO 
ib Stet TR) 
BeeRst _DST_PTR 


MOVED_DST_ENTRY 
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you 19-808=13he 95:93:53 DEBUG. SRCIRSTENTRE 83252 oe 18) 
3 ? te } GLOBAL ROUTINE DBGSRST_REMOVE(MODRSTPTR): NOVALUE = : 
3 4 44 1 ! FUNCTION ; 
3 4 4471 1! This routine removes the RST for one module from the Run-Time Symbol $ 
3 4 4472 1! Table (RST). It accepts as input a pointer to the Module RST Entry of F 
3 4 4475 1! the module to be removed. The module's symbol chain is then scanned, : 
3 4 4474 1! and all RST entries on it with zero reference counts are released to the 5 
3 4 4475 1! free memory pool. The module's Static Address Table chain is also re- : 
3 : rr: : leased and its Least Recently Used Module (LRUM) table entry is removed. : 
: 4 4478 1! RST entries on the module's symbol chain which are locked (have non-zero 
3 4 4479 1! reference counts) cannot be released since there are pointers around 
7 4 4480 1! which point to them. Such entries are therefore added to the Temporary 
3 4 4481 1! RST Entry List after being removed from the module's symbol chain and 
3 4 44 ; 1! from the RST Hash Table. These RST entries are eventually released by 
3 4 GS oe routine DBGSRST_TEMP_RELEASE after their reference counts have been re- 
3 : uced to zero. 

4369 te8s yi oat 
3 4 4486 1 i INPUTS 
; 4371 44 1! MODRSTPTR = A pointer to the Module RST Entry of the module which is to 
$ : ret ; : be removed from the RST. 
: 4 4490 1 | OUTPUTS 
3 4 4491 1! NONE 
3; 4 <e58 1! 
3; 4 4495 1 
3 4 4496 BEGIN 
: 2880 ree +4 p 
: 4381 ree MODRSTPTR: REF RSTSENTRY; ! Pointer to the Module RST Entry of the 
3; 438 4498 ! module to be removed 
+ rs en 
: 4385 4501 BACKLRUM: REF LRUMSENTRY, ! Pointer to previous LRUM entry 
3; 4386 450 BACKPTR: REF RSTSENTRY, ' Pointer to previous RST entry on 
3; 4387 450 ! the RST hash chain 
3 4 4504 FORWLRUM: REF LRUMSENTRY, ' Pointer to the next LRUM entry 
3; 6389 4505 FORWPTR: REF RSTSENTRY, ' Pointer to the next RST entry on 
; 4390 4506 ‘ the RST hash chain 
3; 4391 4507 LOCKNODE: DBGSLINK_NODE, ! Node used to lock or unlock SYMIDs 
3: 439 4508 LRUMPTR: REF LRUMSENTRY, ' Pointer to the current LRUM (Least Re- 
3; 439 4509 } cently Used Module) table entry 
3 4394 4510 NEXTRST, ! Pointer to the next RST entry on the 
3; 4395 $233 ‘ module's symbol chain 
3 4 38 451 NEXTSAT, ! Pointer to the next entry on the 
3; 439 451 ! module's SAT chain 
3; 4398 4514 RSTPTR: REF RSTSENTRY, ! Pointer to the current RST entry on 
3; 4399 4515 . the module's symbol chain 
: 4400 4 16 SATPTR: REF SATSENTRY; ! Pointer to the current Static Address 
3: 4401 451 } Table entry being removed 
7) 
: 46 45 
: ttos 45 ; ! Mark the specified module as no Longer being in the RST. Also increment 
: rt 45 § ! the reference counts of all RST entries which are referenced by the cur- 
3 440 $2 ? rent Debug command (the entries on the RST Reference List). 
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=s 


2 
1b-Seo-1986 02:55:41) YAN-11 BLiggc¥2 v6. 0-742, 
$V HOD _INRSTD = FALSE: 
T NASTSREF ETSI) bo 


DBGSL_LINK_NODE VALUE] = .RSTSREF_LISTC.I + 1); 
OCK_SYMID(COCKNODE); 


CRST 
DBG$ 
aon 1 
LOCKNODEL 
DBGSSTA_L 
END; 


E 
F 


74 over the module's symbol chain and remove all entries on it from that 
! chain and from the RST Hash Table. Release all RST entries with zero ref- 
' erence counts to the memory pool, and put those with non-zero reference 

' h y l d h ith f 

: counts on the Temporary RST Entry List. 


RSTPTR = .MODRSTPTRCRSTSL_SYMCHNPTRI; 
MODRSTPTRERSTSL_SYMCHNPTRI = 0; 
WHILE .RSTPTR NEQ 0 DO 


BEGIN 
NEXTRST = .RSTPTRCRSTSL_SYMCHNPTRI; 


: Remove the RST entry from the RST Hash Table. 


FORWPTR = .RSTPTRERSTSL_HASH_FLINK); 
BACKPTR = .RSTPTRCRSTSL_HASH_BLINKJ; 
FORWPTRCRSTSL_HASH_BLINR} = .BACKPTR; 
BACKPTRERSTSL_HASH_-FLINK] = .FORWPTR; 


Since the SAT is going to be removed, the pointers into the SAT 
should be updated (zeroed). This is done for every routine; 
especially those that are hanging around because their reference 
count is not zero. This may effect code in DBGSSTA_SETCONTEXT. 


' 
i 
i 
i 
' 
IF, RSTPTRERSTSB_KIND] EQL RSTSK_ROUTINE 
RSTPTRCRSTSL_RTNSATPTR) = 0; 


' Release the RST tT to the memory pool or put it on the 
Temporary RST Entry List. 


iF .RSTPTRCRSTSW_REF COUNT) EQL 0 
DBGSREL_MEMORY( .RSTPTR) 

ELSE 
BEGIN 
RSTPTRERSTSL_WASH FLINK) = ,RSTSTEMP_LIST; 
RSTPTRERSTSL-HASH BLINK) = 0; 


RSTSTEMP LIST =, : 
Be rremane? L_SYMCHNPTR] = 0; 


RSTPTR = .NEXTRST; 
END; 


sat 


3; 446 4 § 
im 

; cts 4585 
3; 44 » 4 

3: 447 4 

3: 4647 4 3 
3 447 & 

3 4476 4 

3; 44675 4591 
3: 4467 4 3 
3: 447 459 
3; 44678 4594 
3 ret 2 95 
ee 
3: 46 q 4 39 
3 4484 4600 
3: 4485 ree: 
3 rts 46 
teks 4 

3 4489 4605 
3; 4490 4 

3; 6491 460 
[a 
3 6496 4610 
+ est 
3 ret) 461 
3; 4698 4614 
Se Bk 
; 4501 461 
; 450 461 
3; 450 461 
: 6504 4620 
3; 4505 4621 
3; 45 46 § 
: 220 1654 
3; 4 03 4625 
; 6510 46 $ 
; 4511 46 

7 4 i 4628 
3; 651 4629 
3 4516 46 

+ 

; 2318 46 § 
3 £218 4634 
: $339 rar 
: 4331 46 

3: 4522 4638 


POR BBB EF FMAM IPIDIDIPIIININ HAMAGPIPIPIPINIPONIPPYIDIPIPIPIPIPIPIPUPIPIAIPIRINIAAAAIPINIPININNYD 


-$ep-1984 02:5 AX-11 Bliss-32 V4.0-742 
1b-se0-1946 93: 73:36 DEBUG. SRCJIR STENTR L.832;2 
Also remove all SAT entries on the module's Static Address Table chain. 
SATPTR = RSTSL, SAT PIAS FC y* _PTRI; 
MODRSTPTRLRSTSL_SAT_P 
WHIL us apa ATPTR NEQ 07D 

NEXTSAT = Rtas Sits e FLINK); 


DBGSREL_MEMORY(.SATP 
lhe = .NEXTSAT; 


! If we have PC-Correlation and Source-Correlation DST record pointer 
; tables, we release them here. 


if cRODRSTPTRERSTSL _AODPCTOL J NEQ 0 
DBGSREL _MEMORY( .MODRSTPTRCRSTSL_MODPCTBLI); 


MODRSTPTRERSTSL_MODPCTBL) = 
IF .MODRSTPTRERSTSL PROPERCTBLd NEQ 0 


THEN 

DBGSREL_MEMORY( .MODRSTPTRCRSTSL_MODSRCTBLI); 
MODRSTPTRCRSTSL_MODSRCTBLI = 0; 
! Decrement the reference counts of all RST entries referenced by the 
i current Debug command; we have already ensured that they will stay in 
: memory for now. 
INCR I FROM 1 TO .RSTSREF_LISTL1) DO 


N 
LOCKNODECDBGSL_LINK_ NODE VALUE] = .RSTSREF_LISTC.1 + 1); 
ere UNLOCK" SYMIB(LOCRNODE) ; 


: ally remove the LRUM (Least Recently Used Module) table entry for the 
! module. Such entries may only exist for modules currently in the RST. 

F .MODRSTPTR EQL .LRUMSMOST cecent a LRUMSMOST_RECENT = 0; 

RUMPTR = .LRUMSLISTH HEADELRUASL FL }; 

RUMPTR NEQ .LRUMSLISTHEAD bo 

LRUMPTRCLRUMSL_RSTPTR] EQL .MODRSTPTR 


UM 
BACKLRUMCLRUMSL_FLINK  FORWLRUM: 
7107 aateeable “LRUMPTR) ; 


es] 


CNTRL 
3 
4 
8 
9 
1 


Dek ek ek ek eke led 


LRUMPTR = .LRUMPTRCLRUMSL_FLINK); 


2 
“] 
opel 


We are all done with the module--now return. 


RETURN; 
END; 
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db (3:78:38 Ebtaue. SacSastentacveses2 


DBGSRST_REMOVE, Save R2,R3,R4,R5,R6,R7,RB 
DBGSREL-MEMORY, RBS 
RSTSREF LIST, a? 


# 
MODRSTPTR R3 
#2, 40(R35 
LOCKNODE 
RSTSREF_LIST, RO 
4(RO), Ro 

$ 

@RSTSREF_LISTCIJ, RO 
4(RO), LOCKNODE+4 
#1, DBGSSTA_LOCK_SYMID 


(RSTPTR), FORWPTR 
4(RSTPTRS, BACKPTR 
BACKPTR, 4(FORWPTR) 
FORWPTR, (BACKPTR) 
20(RSTPTR), #2 
(RSTPTR) 
(RSTPTR) 
RSTPTR 
a. DBGSREL_MEMORY 


RSTSTEMP_LIST, (RSTPTR) 
RSTPTR, RSTSTEMP_LIST 
4(RSTPER) 


$s 
NEXTRST, RSTPTR 
zeny), SATPTR 
4(R5) 
ATPTR 


$ 
(SATPTR), NEXTSAT 
SATPTR 


Set 


3; Routine Size: 258 bytes, Routine Base: DBGSCODE + 2468 


Ib-se 1984 02:53:41 AX-11 Bliss-32 v4.0-742 Page 14 = 
eager tRRe 9S: 75:5) | PONE YL Oh sec te ve On ts2, oe 18) v 
68 91 F CALLS #1, DBGSREL_MEMORY ; ; 

4 0 MOVL WEATSAT, SATPTR : 4591 3 

EF 9 RB 8 : 4587. : 

2c AS : 95 9$ SiL 4 (RB) + 4598 ; 

0 9 BEQL 108 : : 

2¢ AS DD OO09A PUSHL  44(R3) + 4600 ; 

7.) 0] FB CALLS #1, DBGSREL_MEMORY : ; 

C A3 04 OOOAD 108 CLAL 4(R3) + 4602 | ; 

a | D3 A TSTL (R3) + 460 ; 

06 Me BEQL a : : 

24 Ad 0D PUSHL  36(R3) + 4605 F 

68 0 Fe AB CALLS #1 DEGSREL MEMORY : ; 

24 AS OD AE 11$: CLARE  36¢R3) + 4607. ; 

0 6 06 MOVL  RSTSREF_LIST, RO + 4614. : 

4 06 AO D B4 MOVL 4(RO), R4 : ; 

52 04 00088 CLRL ; F : 

13 11 OOOBA BRB 3$ : | ; 

50 0 B74 De ar 12$:  MOVAL @RSTSREF_LISTCIJ, RO + 4616) ; 

04 AE 4 AO D C VL &(RO), LOCKNODE +4 F 3 

SE DD C6 PUSHL SP : 4617) : 

000000006 Q 1 Fe ¢ CALLS #1, DBG$STA_UNLOCK.SYMID : : 
9 . @ CF 13%:  AOBLEQ R4. I, 128 + 46146 ; 
FC OA d1 O03 CMPL 3, LRUMSMOST_RECENT + 6624 3 

03 12 0000 BNEQ 148 ; ; 

FC 6A? «D4 00009 CLRL soa T_RECENT : : 

5 FS e7 DO 900¢ 14$:  MOVL  @LRUMSLISTHEAD, LRUMPTR > 4625 | : 

fBoOA 32 D4 ooee 158: CPL Lf TR, LRUMSLISTHEAD : 4626. : 

53 08 A2 D1 000E6 CMPL B(LRUMPTR) , R3 : 4628 | : 

10 12 OOEA BNEO = 1 : ; 

54 62 7D OOOEC MOVO (LRUMPTR), FORWLRUM + 4631 ; 

04 Ab 5 00 OOEF MOVL § BACKLRUM, 4(FORWLRUM) : 4633 ; 

65 54 D0 000F3 MOVL § FORWLRUM. (BACKLRUM) : 46 : 

52 DD 00F6 PUSHL LRUMPTR + 4635 ; 

68 01 FB 0 F CALLS #1, DBGSREL_MEMORY : ; 

04 000FB RET : 4630 ; 

52 62 DO OOOFC 16%:  MOVL (LRUMPTR) , LRUMPTR + 4639 : 

DF 11 OOOFF BRB 15$ + 4626 F 

04 00101 17$: —s RET + 4647 : 


| 
ist 


a 2 | 
RSTCNTRL 16-Sep-1984 6<.:53:41 AX-11 Bliss-32 V4.0-742 Page 148 
yo4s000 192808=1 382 95:93:51 : DEBUG. SRCIRSTCNTRE 83252 . (19) 
3 : 3 6863 } GLOBAL ROUTINE DBGSRST_SETMOD(MODNAMEPTR, LENGTH, ALLOCATE_FLAG) = 
: 4535 4630 1 | FUNCTION 
3; 4 46 1; This routine marks a specified module as being SET. The routine accepts 
3 4 46 < 1! the desired module name and its length as input, looks that name up in 
3 4 46 17 he RST Module Chain, and marks the module as being SET. Alternatively, 
; 45359 4654 1! f no module name is ppec} tree. all modules in the RST Module Chain are 
3 4 re rt 5 : } marked as SET (Shareable image module must be set individually). 
: ¢ 4g te yi INPUTS : 
3 654 46 8 1! MODNAMEPTR = A gointer to the first character of an ASCII string 
: sete 4659 1! conta i the module name. f this pointer is zero, it is 
3 ¢ $2 rere : : assumed that all modules should be marked as being set. | 
; 2 of rir : LENGTH = The Length in characters of the module name. 
3 439 4664 | ; ALLOCATE_FLAG = TRUE if SET MODULE/ALLOCATE was specified. | 
: 2884 4666 | i OUTPUTS | 
; $226 4667 1! This routine returns the value STS$K_SUCCESS if the module was success- 
3; 455 4668 1! fully SET; it returns STSSR_SEVERE if the specified module 
3 4554 4669 1! name does not exist in the RST Module Chain. If all modules 
5 $22? 4670 1! are SET, STSSK_SUCCESS is always returned. 
3; 45 $ 4671 1! 
; 4358 te78 2 sBEGIN 
> 455 4674 
3; 4560 4675 LOCAL 
3; 4561 4676 RSTPTR: REF RSTSENTRY; ! Pointer to the Module RST Entry 
es 
> 4564 467 
3; 4565 4680 ! Set the flag saying whether it is OK to allocate more eqnory in order 
3 £368 4681 ! to set this module. This is true if /ALLOCATE was specifically 
3 rtre4 : § requested. 
; $3 , 46 , DBGSGV_CONTROLCDBGSV_CONTROL_ALLOCATE) = .ALLOCATE_FLAG; 
: 6571 4 
3; 457 4 ! If a specific module name was specified, we look up the corresponding 
3; 457 4 ! Module RST Entry, mark the module as being SET, and build the RST symbol 
3 ? a re 9 : chain for the module. 
: 4 26 4691 If, ;NODNAMEPTR NEQ 0 
: 457 469 BEGIN 
3 1358 46946 RSTPTR = GET _MOD_RST(.MODNAMEPTR, .LENGTH); 
> 45 4695 IF .RSTPTR EOL THEN RETURN STS$K_ SEVERE; 
3; 4581 46 RSTPTRCRSTSV_MODSETJ = TRUE; 
3 45 § 469 DBGSRST BUILB( RSTPIR): 
: $2 £008 RETURN STSSK_SUCCESS; 
3: 4 $8 END; 
: $282 £701 
: 45 47 ; ' No module name was specified. Go through the whole RST Module Chain (but 
: $2 47 ! ignore the anonymous module) and mark esch module as being SET. so 
3 4 47 ' puild each such module's RST symbol chain. Note that we abort this loop 
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000000006 00 
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RSTPTR = ,RSTSSTART_ADDR; 
WHILE. .RSTPTR NEQ 0700 


N 
ABORT_ON_CONTROL_Y; 
IF NOT” .RSTPTRCRSTSV_ANONMOD J 
THEN 
BEGIN 
iF uot -RSTPTRCRSTSV_SHARE_ IMAGE) 
BEGIN 
RSTPTRERSTSV_MODSET] = TRUE; 
DBGSRST_BUILB(.RSTPTR); 
END; 
END; 
asTPTR = .RSTPTRCRSTSL_NXTMODPTRI; 


RETURN STS$K_SUCCESS; 


END; 
0004 00000 
01 07 C AC F 0002 
4 aC 05 0000C 
1F 13 OOOOF 
7€ 04 ac 7D ot) 
0000v CF 9¢ F 15 
2 ) Sota 
os 12 0001D 
50 4 be OO01F 
28 =A2 91 8 09 5 1$: 
E226 CF é Pe 9 
83 4h 00 
52 00000000' . 13 0 3: 
0D 000000006 00 1 € 9 
000280E8 F OD 41 
000000006 0 1 F 47 
10 A ; E 4E 4$: 
A 1 
; 0D C 
E1F1 gf F 
2 10 A2 9 5$: 
50 6 0 9 6%: 
4 6c 


iBseontage og: 


if the user entered Control-Y¥ DEBUG to stop the SET 


41 AX-11 Bliss-32 V4.0-74 
26 DEBUG. SRCJRSTCNTRL .B32;2 


MODULE command. 


DBGSRST_SETMOD, Save R2 
ALLOCATE FLAG, #7, #1, DBG$GV_CONTROL 
MODNAMEPTR 


2$ 
DNAMEPTR, -(SP) 
ae. GET _MOD_RST 
RO. RSTPTR 

#4, RO 

#1, 40(RSTPTR) 

#1, DBGSRST_BUILD 
RSTSSTART_ADDR, RSTPTR 
#1 $GV_CONTROL*1, 4$ 
#164073 2 


e 


) 
) 
) 
#1, DBGSRST_BU 
LoRSTPTR), RS 
#1, RO 
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109 bytes, 


Routine Base: 


; Routine Size: 


1S-sen-19ee 02:85:4) yayett at ige=32 ve 0-72 Page 5 


GLOBAL ROUTINE DBGSRST_SETSCOPE(PNVEC, ERRINDEX, SET_SCOPE_ MODULE): NOVALUE = 


' FUNCTION 
: This routine makes a new set of scopes available to the symbol table 
access routines (DBGSSTA_GETSYMBO articular). It is thus called 
in the soures of processing the SET SCOPE ‘stort ay ,seecese as in- 
ut a vector of pointers to Pathname Descri he eit speci- 
ied on Fe. SET SCOPE command. It cass bee sRst BLDSCOPE 
build a Linked List of the corresponding Scope Eftries, and aokes 
SCOPESLIST point to this list. 


WUEwrn—OO° 


pp Da, i Mn Me 


' 

' 

! 

! 

' 

' 

' 

' 

‘ 

' INPUTS 

: PNVEC = A vector of pointers to Pathname Descriptors for the scopes 
: specified on the SET SCOPE gqnnend. PN ATS Ss phivetos he number 
: of such pointers and PNVECE through PNVECC..PNVECLO ij contain 
: the pointers to the Pathname Descri piers The CANCEL SCOPE 
} command is handled by making PNVEC(OJ zero. 

' 

' 

' 

1 

' 

! 

' 

' 

1 

! 

' 

' 

' 

' 


BRL EEE 


ERRINDEX = The address of a longword location to receive an ‘‘error 
index'’; see description below. 


SET_SCOPE_MODULE = An optional 3rd parameter which if present and 
TRUE means we were called from SET SCOPE/MODULE. 


' OUTPUTS 

$ ERRINDEX = If some pathname is found to +4 royei t the PNVEC index of 
that pathname is returned to ERRIND fhe calling routine 
can then use ERRINDEX to produce —y eer message. If al 
scope pathnames are correct, zero is returned to ERRINDEX. 


No value is returned. 


BEGIN 


o 
FER IS SeGE Kr 2 Dee wen ecw we oee 


P 
PNVEC: REF VECTORC,LONG), ' Pointer to vector of Pathname Descrip- 
} tor pointers 
ERRINDEX: REF VECTORC1); ! Pointer to error index longword 


LOCAL 
LOCKNODE: DBGSLINK_NODE, ! Node used to lock or unlock SYMIDs 
' TRUE if called from SET SCOPE/MODULE 
NEW SCOPE_LIST, } Pointer to new scope List being built 
! 
' 


ee tenes eetaueneaaeanae tate eo 


~ 
_ 


PREDSCOPET CREF SCOPESENTRY, ' Pointer to the scope entry before the 
SCOPE: REF SCOPESENTRY; 


BUILTIN 
ACTUALCOUNT ; 


, present scope entry 
! Pointer to the present scope entry 


SN 


' Initialize the flag that sys whether we were called fro 

! SET SCOPE/MODULE. This is Just passed along to the BLDSCOPE routine 
that ty es processes the SET SCOPE command. 

I 


iF ACTUALCOUNT() LSS 3 


= 
SANS 
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ans 


3 
RSTCNTR -Sep-1 75 AX-11 Bliss-32 V4.0-742 P 152 
SSO" bak aes rah Se cL 9 tT eo 99° 30) 


; 4671 4785 THEN : 
3 467 47 MODULE_FLAG = FALSE : 
; 467 47 ELS : 
3; 467 47 MODULE _FLAG = .SET_SCOPE_MODULE; : 
im : 
3; 467 4791 NEW_SCOPE_LIST = DBGSRST_BLDSCOPE_LIST(.PNVEC, ERRINDEX(0) : 
3: 467 476 TRUE, .MODULE_FLAGS ; ; 
; 46 479 IF .ERRINDEXCO] NEQ 0 THEN RETURN; : 
3 4 4794 : 
; rh : tb9e ! Lock th *s RST entry i : 
; ; Loc e scope's entry in memory. 3 
3; 4 § t399 3 
3; 4 rhs | | : 
; 4685 479 SCOPE = NEW _SCOPE_LIST; : 
3; 4 4800 WHILE .SCOPE-NEQ 0°00 F 
; 4 4801 BEGIN : 
: 4 4 4 IF .SCOPECSCOPESL_STATE] EQL SCOPESK_NORMAL : 
>; 4689 480 THEN : 
; 4690 thee & GIN F 
; 4691 4805 4 LOCKNODE CDBGSL_LINK_NODE_LINK) = 0; : 
3; 469 4 06 & LOCKNODE (DBGS$L “LINK NODE VALUE) = .SCOPECSCOPESL -RSTPTRI; : 
3; 469 4807 4 DBGSSTA_LOCK_SYM1D(COCKNODE) ; F 
3; 4694 4808 END; : 
3; 4695 4809 : 
3 $338 4810 PREVSCOPE = .SCOPE ; 
: 469 4811 SCOPE = .PREVSCOPELSCOPESL_FLINK); | ’ 
; 4698 6 \¢ END; : 
3; 4699 481 $ 
: 4 4 4814 : 
; $701 4815 ! We have now built the new scope List successfully. | : 
; 470 4 ig 4 Append two more scope entries to the end of the new scope list: one for : 
; on : ; ‘ SET modules and one for the global (GST) scope. : 
3; 4705 4 15 score = DOGSeET ne a aie -ENTSIZE); : 
; 47 4820 SCOPE CSCOPESL : 
; 470 4821 SCOP ET SCOPESL aa 2 = Stores _SETMODS; | ; 
3 47 4 ¢ SCOPE SCOPESL— -Rs ore : 
3 47 4 scores adm : 
3; 4710 4824 oaey sc OPeCSCOR es te FLINK NK} = SCOPE; : 
3; 4711 4825 VSCOPE = .SCOP : 
3 orte 4 $ SCOPE = DBGSGET a4 v( gcoresx -ENTSIZE); : 
3; 471 4 SCOPECSCOPESL_FCINK : 
3; 4714 % SCOPE sc ORE aL stare = 4 “Seen GLOBAL; : 
3; 4715 4 SCOPELSCOPESL_RSTP Pinay : 
: erie % SCOPELSCOPESL— vf : 
3 471 4831 PREVSCOP! OPELSCOPES ESL PIR) = SCOPE; 3 
oes ; 
3 4720 6 ! Then loop through the old scope List and release all the old scope entries 3 
3 rt! 1 ? 5 to the free memory pool. Note that we unlock normal scope RST entries. : 
3 o? ; : WHILE gSCOPESLIST NEQ 0 DO : 
3; 4725 4 IF .SCOPESLISTCSCOPESL_STATE] EQL SCOPESK_NORMAL : 
3; 47 $ 4840 THEN : 
; 47 4841 4 BEGIN : 
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MAPA TIUIVIVIV 


3 
1$-sep-1964 02:58:41 yayett BLigs-B2 v4.0-742, 


LOCKNOD th BG$L_LINK_NOD €_LINK] = 0; 
EoSEnane DBGSL“LINK-NODE-VALUE) = .SCOPESLISTCSCOPESL_RSTPTRI; 
UNLOCK-SYMIB(LOCRNODE) ; 
PREVSCOPE = .SCOPESLIST: 
SCOPESLIST = .P PREVSCOPELSCOPESL FLINK] 
¥(. PREVSCOPE) ; 


DBGSREL _MEMOR 
END; 


the start address of the new scope List in SCOPE_LIST; that makes it 
icial. Then return. 


et 
ff 
SCOPESLIST = NEW SCOPE _LIST; 


Save R2,R3,R4,R5,R6 


007¢ 00000 .ENTRY DBGSRST_SETSCOPE 
56 000000006 00 9€ 900¢ MOVAB DBGSGET~ MEMORY, R6 
55 00000000' ai 9—€ 000 MOV | . 
5 8 : 0019 SUBL 
0 901 CMPB tab) 
4 1€ 00016 BGEQU 
0 D4 00018 CLRL MODULE_FLAG 
04 11 OOO1A BRB 2 
50 OC AC 00 0001C 1$ MOVL § SET_SCOPE_MODULE, MODULE_FLAG 
50 DD 00020 2$ PUSHL MODOLE_FLAG 
01 DD 00 PUSHL #1 
7E 04 AC 7D 4 MOVO PNVEC, -(SP) 
FICD ct 4 FB 00028 CALLS #4, DOGSRST BLDSCOPE_LIST 
4 0 dO 0002D MOVL RO, NEW SCOPE_LIST 
08 BC D5 000 TSTL  @€RRINDEX 
D 12 000 BNEG 
52 54 00 000 MOVL NEW_SCOPE.LIST, SCOPE 
1€ 1 3$ BEQL = 5 
01 06 A2 01 A CMPL 4 (SCOPE), #1 
10 12 BNEG 4$ 
6E 04 CLAL LOCKNODE 
04 AE 08 Ae 00 MOVL (SCOPE), LOCKNODE+4 
E DD 0004 PUSHL 
000000006 99 1 F 9 CALLS DBGSSTA LOCK SYMID 
D 9 48: MOVL SCOPE EVSCOP 
63 D MOVL EBREVECOPE): Or OPE 
01 6 BRB 3$ 
4 OD 5$: PUSHL #4 
$6 1 FB A CALLS i DBGSGET_MEMORY 
D MOVL PE 
6 ps CLRL ope) 
04 A2 D MOVG (se 4 (SCOPE) 
0c Ag D4 CLRL  12¢SCOPE) 
63 52 D0 0006 MOVL SCOPE, (PREVSCOPE) 


; Routine Size: 


179 bytes, 
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000000006 3 
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SCOPE. PREVSCOPE 
#1, DBGSGET_MEMORY 
RO. SCOPE 

(SCOPE) 

#3, 4(SCOPE) 
12(SCOPE) 

SCOPE (PREVSCOPE) 
scopesiist, R 


rt yet 
Ea » LOCKNODE+4 


#1, DBGSSTA_UNLOCK_SYMID 
SCOPESLIST, PREVSCOPE 
(PREVSCOPES, SCOPESLIST 
PREVSCOP 

#1, DBGSREL_MEMORY 


NEW_SCOPE_LIST, SCOPESLIST 
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ROUTINE BLDSCOPE_ERROR_HANDLER(SIGARG, MECHARG, ENBLARG) = 


' FUNCTION 
: jefe routine is the error handler for the DBGSRST BLDSCOPE_LIST routine. 
ALL it does is to handle the DBGS_BADSCOPE and DBGS$_NOFREE errors by 
releasing all Scope Entries accumulated on NEW SCOPE_LIST back to the 
ry — so they are not lost. for DBG PE, the handler then 
nds so that control is returned to the routine thet called routine 
DBGSRST _BLDSCOPE LIST. Otherwise, it just resignals the error. 


uw 


‘ 

' 

' 

i] 

] 

' 

' 

i 

: INPUTS 
SIGARG = The signal argument vector. 
' 

' 

' 

' 

' 

' 

'‘ 

‘ 

' 


MECHARG = The mechanism argument vector. 


ENBLARG = The enable argument vector. ENBLARGL1] is assumed to 
contains the address of NEW_SCOPE_LIST. 


Fat at af af at at at at ot at ot a 


, 
2.09 CD CD CD | 


i OUTPUTS 
: For the —- -BADSCOPE error, this handler unwinds the call stack. 
of all other errors, it resignals. 


BEGIN 
MAP 


SIGARG: REF VECTORC,LONG) ! Signal argument vector 
ENBLARG: REF VECTORE,LONG); ! Enable declaration argument vector 


ND 
NEW_SCOPE_LIST = .ENBLARGC1); ! Address of pointer to new scope List 


REL SCOPE ' Pointer to scope entry being released 
SCOPE: REF SCOPESENTRY; i Pointer to the next scope List entry 


! If the condition code is anything other than DBGS$_BADSCOPE or DBGS_NOFREE, 
; ust resignal the error. 


if Rib resd NEQ DBG$_BADSCOPE AND 
NEQ DBGS$_NOUNIQUE AND 
= ST Ganctt NEQ DBGS_NOF REE 


pat at ae a a a a Ft ot of ot ot ot ot 
oovowo Nae do 
-) w —-S0o MEWN 
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4905 EN RETURN SS$_RESIGNAL; 

3s 

rss ! It is one of the errors we handle. Loop through the new scope List and 
rh : release each Scope sez on it back to the free memory pool. 

491 SCOPE = .NEW_SCOPE_LIST; 

491 WHILE .SCOPE-NEQ 0°00 

491 BEGIN 

4914 RELSCOPE = .SC 

4915 SCOPE = .SCOPE SEOPESL FLINK); 

4916 DBGSREL_MEMORY(.RELSCOPE); 
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Routine Base: 


For DBGS_NOFREE, we s 
tS rm -BADSCOPE THEN SETUNWIND(); 
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he stack to Ane te control to the caller of 
mply resignal the error. 


001C 00000 BLOSCOPE ~ERROR AHA HANDLER: 


Save R2, R3,R4 

$0 889 902 MOVL ENBLARG. RO 

MOVL  SIGARG, R 
D1 B00A CMPL  4(R2), #164312 
13 00012 BEQL =és«18 
D1 00014 CMPL  4(R2), #164336 
13 Ooi¢ BEQL =s«18 
D1 9 1 CMPL «=«-« &(R2), #164658 
12 000 BNEG 4$ 
DO 00028 1$: MOVL @4(RO), SCOPE 
D5 0002C 2$: TSTL sgrre 
13 000 BEQL $ 
Dd 000 MOVL SCOPE REL SCOPE 
DO 000 MOVL (SCOP PE) OPE 
DD 000 PUSHL REL OPE 
Fe 00 CALLS #1, $586 REL_MEMORY 
11 0003F BRB $° 
D1 9041 3$: CMPL 4(R2), #164312 
12 00049 BNEG 4$ 
7C 00048 CLRQ (SP) 
FB 0004D CALLS #2 $YSSUNWIND 
3C 00054 4$: MOVZWL #2328, RO 
04 00059 R 


DBGSCODE + 268A 


<2z 
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Pointer to new ‘‘dummy’’ DST record 

Pointer to new label name string 
Set to TRUE if Label is numeric 
Pointer to new Label RST Entry 


NEWDST: REF DSTSRECORD 
NEWNAME: REF VECTORL,BYTE), 
NUMLBL_FLAG, 

RSTPTR: REF RSTSENTRY; 


: 7 ROUTINE BUILD_LABEL_RST(DSTPTR) = 
49 ' FUNCTION 
wy : This routine builds a skeleton Label RST Entry. The main Poe it does, 
4&3 : however, is to determine if a label is a numeric label. If the label is 
4&9 : numeric, @ memory block is allocated to hold both the Label RST Entry 
49 : and a dummy DST resore for that Label. The dummy DST record is set up 
49 : so that the name field contains ‘ZLABEL nnn'’ where nnn is the Label num- 
4935 : ber aEr ipped of all jeading zeroes. This allows the Debugger to search 
49 ; for “SLABEL nnn’’ as it searches for any other symbol without making any 
re 4 special provisions for the “ZLABEL"’ part (other than when parsing). 
49 ! INPUTS 
rhe : DSTPTR = A pointer to the original label DST record for the label. 
494 ! OUTPUTS 
G94 : A pointer to a skeleton Label RST Enery is returned as the routine's 
4944 : value. The RSTSL_DSTPTR field is filled in correctly in this 
4945 ! entry, but all other fields are empty. If the label is numer- 
8 494 : ic, this pointer points to a dummy DST record with a modified 
8 ane : label name; otherwise it points to the original DST record. 
3 198 
8 
8 
of ;, 
4954 
4955 LOCAL 
495 FIRSTLOC, Location of first non-zero digit 
495 J. Index into new Label name string 
of 495 NAMEPTR: REF VECTORC, BYTE], Pointer to original name string 


PANAMA 


w ESET 


! Determine if the input label's name is fully numeric. Also determine the 
: location of the first non-zero digit in the name. 


NAMEPTR = DSTPTRCDSTSB_NAME); 
FIRSTLOC = 0; 

NUMLBL_FLAG = TRUE; 

INCR 1 FROM 1 TO .NAMEPTR(O) DO 


BEGIN 
ag he LSS *O°) OR (.NAMEPTRC.1] GTR '9") 


NOUS WN $0 OONOUS wo 0 


C300 0D 


LBL L ce 


ff (.MAREPIRE. 3 NEQ 0") AND (.FIRSTLOC EQL 0) THEN FIRSTLOC = .1; 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

; 
4950 BEGIN 
4951 
495 MAP 
495 DSTPTR: REF DSTSRECORD; ! Pointer to original label DST record 

4 

3 

4 

& 

| 


@o 
| 
-o 
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on 
<z 


F RST: | 
OOFC 00000 BUILD_LABEL_RS : 4927 


3 ‘3 If .FIRSTLOC EQL O THEN FIRSTLOC = .NAMEPTR(O); 3 
; 49 ; 
: $3 ! If the Label is not telly g.ogee ry Bt eck for the Label RST Entry 3 
3 re only, put the DST pointer in & RST _DSTPTR field, and return. 3 
3 4 [ (NOT .NUMLBL_FLAG) OR (.NAMEPTRCO) EQL 0) : 
8 499 HEN 3 
3 £338 Begin F 
; 499 - RSTPTR = DBGSGET_MEMORY(RSTSK_LBLENTSIZ); 3 
3 4994 RSTPTCRS! L DSTPTRJ = .DSTPTR; $ 
3 $329 RETURN .RSTPTR; 3 
r i999 | : 
3 pha 3 
3 & ! The label is numeric. Allocate a oaery block large enough to hold both 3 
; 000 i the Label RST Entry and a dumny pst recere for the label. The name in : 
3 001 i this yr DST record is set to “ZLABEL nnn’’ where nnn is all the digits 3 
3 Oe of the label number except for leading seroes. We then return. F 
8 004 RSTPTR = DBGSGET_MEMORY (RSTSK bee + (.NAMEPTREO] = .FIRSTLOC + 19)/4); F 
5 5 WOS eRSTPTR + re LOCEN T$12Z $ 
3 RSTPTR RSTSL_ DSTPTR DST é 
3 00 NEWDSTCDSTSB_LENGTH “NAMEPTRCOJ - .FIRSTLOC + 15; | ; 
H Boe NEWDSTLDOSTSB_TYPE] = ost $K_LABEL; $ 
: 00 NEWDSTLDSTSB_VFLA é 
3 010 NEWDSTEDSTSL VALUE). = .DSTPTRCDSTSL VALUE); : 
H 011 NEWNAME = NEQDST DSTSB. }; é 
3 oe NEWNAME(L1) = ‘Z'; 3 
, 01 NEWNAME § o 4"3 $ 
3 014 NEWNAME ws A‘: 3 
3 015 NEWNAMEL4) = ‘B'; | 3 
r Big NEWNAMELS) = ‘E'; 3 
5 01 NEWNAME § e “4°; 3 
7 nie abe! 
; = 7; é 
; 020 INCR 1 FROM .FIRSTLOC TO .NAMEPTRCLO) DO | F 
3 021 BEGIN 3 
3 0 § js .J¢ 13 3 
; 0 NEWNAMECL.J3 = .NAMEPTRE.1); ; 
3 3 3 END; 3 
3 0 $ NEWNAMECO) = .J; 3 
° 30 RETURN .RSTPTR; : 
3 0 3 END; 3 
-WORD Save R2,R3,R4,R5,R6,R7 : : 

7 000000006 00 9 MOVAB DBGSGET _MEAORY, a7 ; : 

5 4 A 3 MOVL petra. R > 4969 | : 

2 7 ~#OA MOVAB (R5), NAMEPTR 3 8 

53 D4 00011 CLRL FIRSTLOC 3 : 


; 4970. 


; Routine Size: 175 bytes, Routine Base: DBGSCODE + 2664 


Kk 3 
RSTCNTRL 16-Sep-1984 02:53:41 AX-11 Bliss-32 V4.0-742 Pa 9 % 
-000 13-808- 1382 95:73:54 EoeBuG. SRC RSTCNTRL.B32;2 ait rig v 
1 01 D0 00013 v #1, NUMLBL_FLAG : 4971 : 
4 $3 oh 1 ROVzBL pets he : 4972. : 
F | Py 
1 1 18 Bra § s 3 
30 a. : 1D 1$: CMP { )CNAMEPTRI, #48 + 4976 : 
39 6042 91 CMPB )CNAMEPTRI, #57 : ; 
g4 18 BLEQU ; : 
1 ps 2s: CLAL LBL_FLAG : 4977. ; 
1 1 B BRB + 46976) 3 
30 604 ? D 38: CPB (1) CNAMEPTRI, #48 + 6981) : 
D TSTL FIRSTLOC : | 3 
1 BNEG : : 
33 Dd MOVL I, FIRSTLOC : 3 
DF 0 F A 4$: AOBLEQ R6, I, 1$ > 4972) : 
D 5$: TSTL FIRSTLOC + 6984. : 
1 4 BNEQ 6 : 3 
53 6 D 4 MOVL 6, FIRSTLOC ; : 
04 1 €9 00045 68: BLBC NUMLBL_FLAG, 7$ : 4990 | : 
6 93 48 TSTL R6 3 3 
4 12 0004A BNEG = 8$ : 3 
DD 0004C 7$: PUSHL 4&7 : 4993) : 
67 gi FB 006E CALLS #1, DBGSGET_MEMORY : : 
1 9 DO 0005 MOVL RO. RSTPTR : | : 
oc (AI 55 pO 00054 MOVL 5, 12(RSTPTR) + 4994 : 
51 11 00058 BRB 1 : 4995. : 
54 56 53 3 D005A 8S: SUBL3 F ARSTLOC R6, R4 ; 5004 | : 
50 13. Aa GSE 0005 vag 19(R4), RO : : 
50 04 C6 0006 DIVL 4 : : 
07 AO SF 0006 PUSHAB 7(RO) ; : 
67 gi FB 0068 CALLS #1, DBGSGET MEMORY ; : 
1 0 pO 00068 MOVL PTR : : 
50 1c AI 9 $f MOVAB 28(R1 NEWD > 5005 | F 
oc Al 50 MOVL NEWDST. 12(RSTPTR) : 5006 : 
80 54 F 81 00076 ADDB3 #15, R&, (NEWDST)+ : 5007 : 
80 F 007A MOVZBW #187, (NEWDST)+ : 5008 : 
0 AS D Ore MOVL 3(R55 (NEW T)+ F 019 : 
01 AO 42414¢ F OD MOVL = #1111 735 9, 1(NEWNAME) : 501 : 
05 A0 4C45 BF : A MOVW #19525, 5(Né : 5016 : 
07 A : MOVB #32, tne : 5018 : 
34 p MOVL @ : : 5019 : 
4 FF As : 097 MOVAB -1(R3), I : 5020 : 
1 BRB 10$ 3 $ 
4 g 9D 9$: INCL J : 50 : 
6440 6542 MOVB (1) CNAMEPTRI, (J) CNEWNAME } ; 50 : 
FS 5 5 AG 10$:  AOBLEQ R6, I, 9$ ; 50 : 
60 4 MOVE J, (NEWNAME) : 50 $ : 
0 1 BO AB 11$: MOVL  RSTPTR, RO : 5027 | : 
A ET : 5029 | : 
: 
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12-808-} 382 95:75 558 DEBUG. SRCIRSTCNTRE .B32;2 ate » 
ROUTINE COPY COMP_LIST(OLDPTR): NOVALUE = 
i FUNCTION 
This routine copies a record ——— List from a component List 
Sears block to memory inside a Data Type RST Entry Sener y block. 
This is nN separate 


done becouse senpenent Lists must be accumulated 
ch can be dynamically om. but once accumulated, 
space they need in the Type 
RST Entry. Putting the component List in the same memory block as 
the Type RST Entry also ; mplifies keeping reference counts and the 
es. 


This routine calls COPY_VARIANT_LIST which in turn calls this routine 
recursively. This recursion corresponds to the nesting of records and 
variants in the DST. 


INPUTS 
OLDPTR = A pointer to the component List re block to be copied. 
This memory block is released to the free memory pool after 
being copied. 


TYPRSTLOC is an implicit input. It specifies where the new copy should 
be placed in the Type RST Entry memory block. 


OUTPUTS 
TYPRSTLOC is an implicit output. It is updeted to point to the next 
available location in the Type RST Entry memory block. 


No value is returned. 


BEGIN: 
MAP 

OLDPTR: REF VECTORC,LONG); ! Pointer to the List to be copied 
LOCAL 

- NEWPTR: REF VECTORC,LONG), ' Pointer to the new copy of the list 

RPTR: REF RSTSENTRY; ! Pointer to component RST entry 
' Allocate space for the new copy in the Data Type RST Entry. Then copy the 
!' old List over to the new location. copy any Variant RST Entries into the 
$ Type RST Entry by calling COPY_VARIANT LIST recursively. Also change the 
! kind of all data record components to RSTSK_TYPCOMP and set their up-scope 
: pointers to point to the Type RST Entry. 
NEWPTR = .TYPRSTLOC; 
TYPRSTL OC = TYPRSTLOCE OLDPTRCO) +1); 
NEWPTR = ,OLDPTR ° 
INCR I FROM 1 TO .OLDPTRCO) DO 

BEGIN 

RPTR = .OLDPTRC.1); 

LF aRPTR RST$B_KIND) EQL RSTSK_VARIANT 


RPTR = COPY_VARIANT_LIST(.RPTR) 


cn 


f 3 
vo4=000" 1eo$ep-198e $8:i:26 — EoeauG. SAcSASTewYaL-as2s2 
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NEWPTRC.1] = .RPTR; 
END; 


eee 
oO 
oO 


! Finally release the old component List back to the free memory pool and 
return to the caller. 


DEGSREL_MEMORY(. OLDPTR); 
RETURN; 
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001C 00000 COPY_COMP_LIST: 
GORD 


‘ Save R2 aoe 
54 00000000" EF 3 9000 MOVAB TYPRSTLOC, 
53 64 DO 000 MOVL TYPRSTLOC NEWPTR 
0 04 BC 000¢ MOVL a@0LD 
4 9440 D 10 MOVA arveRstCoc RO}, TYPRSTLOC 
64 04 C 14 ADDL2 #4, TYPRSTLOC 
63 04 f DO 00017 MOVL SocDPTR: (NEWPTR) 
D4 0001B CLRL 
21 «11 1D BRB 4$ 
50 04 ake po 1F 1$ MOVL LOPTRCIJ, RPTR 
4 Aad 91 4 CMPB 3 (RPTR), #11 
09 12 8 BNEQ 
0 DD A PUSHL PTR 
0000v CF 1 Fe C CALLS #1, COPY_VARIANT_LIST 
9 1 1 BRB 
16 a0 A 3 2s: MOVB 20(RPTR) 
10 A 06 Ad D MOVL typ Past 16(RPTR) 
634 50 0D 3$: MOVL CNEGPTRDCLI 
DA 5 4 BC F 40 4$: AOBLEQ S010 DéTR . 18 
4 AC dD PUSHL OL DPT 
000000006 00 0 FB 4a CALLS ai, 98 ania tanta 


3; Routine Size: 80 bytes, Routine Base: DBGSCODE + 2793 
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ROUTINE COPY_VARIANT_LISTC(OLDRSTPTR) = 


! Allocate space in the current Data Type RST Entry for the new Variant RST 
: Entry and its component List. 


OLDPTR = .OLDRSTPTRCRSTSL_SYMCHNPTR); 

NEWRSTPTR = .TYPRSTLOC: 

TYPRSTLOC = TYPRSTLOCCRSTSK VARENTSIZ + ,OLDPTR(OI/2); 
NEWPTR = NEWRSTPTRERSTSA_VARSETTBL); 


COOOCoCoooooo 


rah 4h sb 4b Ab Ab Ab Ah db db 4d 


Soe 


! FILL im the fields in the Variant RST Entry. 
NEWRSTPTRERSTSL_HASH_FLINK) = .NEWRSTPTR; 


ANPTR] = 0 

TR) = .OLDRSTPTRERSTSL DSTPTRI: 
AGPTR] = .OLDRSTPTRCRSTSL_VARTAGPTRI; 
TSB“KIND) = RSTSK_VARIANT; 

NEWRSTPTRERSTS$W } = 03 


on 
4 1! 
£999 5 1 ! FUNCTION 
4998 5 7! This routine copies a Variant RST Entry ane the corresponding variant 
4999 1: set List from free-standing memory blocks into memory inside the current 
000 i? ,! Data Type RST Entry's gonery block. This is done so that the variant 
001 "SS set List can be grown dynes cally while being accumulated, and still use 
its \§ ! : only just enough space in the final RST entry. 
004 141! This routine is called only by COPY_COMP_LIST, whicn it also calls re- 
005 : : cursively. 
009 i$ 1 ! INPUTS 
008 18 1! OLDRSTPTR = A pointer to the Variant RST Entry to be copied into the 
2008 19 1! Data Type RST Entry eonery block. This “‘old’’ RST entry and 
010 Be the associated component List are released back to the free 
9p 1 : memory pool. 
5018 i 1 ! OUTPUTS 
014 41! A pointer to the new copy of the Variant RST Entry is returned as the 
015 > a routine value. This copy is located within the current 
B18 g 1! Data Type RST Entry. 
01 1! 
5018 8 1 
5019 9 BEGIN 
5031 ? map 
50 § § OLDRSTPTR: REF RSTSENTRY; ! Pointer to Variant RST Entry to copy 
Sz 4 OCAL 
$e 5 NEWPTR: REF yecrone LONG], ! Pointer to new variant set table 
26 § NEWRSTPTR: REF RSTSENTRY ! Pointer to the new Variant RST Entry 
L 3 LONG; ! Pointer to ‘o variant set st 
gf r OLDPTR: REF VECTORC.LONGS i Poi "old vari li 
9 9 
0 
34 4 
i 
0 
5 
5 
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! Copy *he variant set component List (which points to the tag value DST 
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!' record and the ver lane component List for each variant in the set) over 
! to the new Variant RST Entry in the current Type RST Entry's — 

i block. Note that we call COPY  COMP_LIST which may recursively call this 
routine again. 


er Wo 


-OLDPTRLOJ/ 
INCR reel 6 —— 


NEUPTR {.1 = 
TYPRSTLOCLO ; <olpere 
TYP RSTLOC = TYPR 


.TYPRSTLOC; 
ie 1) 
COPY_COMP_LIST( COLpOTRE 3S .1)); 
END;~ 


! Finally release the old variant RST entry and — list eenes blocks 
! back to the memory pool. Return the address of the new Variant RST Entry 
to the caller. 


DBGSREL -MEMORY( .OLDRSTPTR) ; 
DEGSREL oneunerat int DPTR); 


RETURN -NEWRST 
END; 
O3FC 00000 COPY_VARIANT_LIST: 
WORB Save R2,R3,R4,R5,R6,R7,RB,RO 
59 000000006 00 9€ 9002 MOVAB DBGSREL_MEMORY, RO - 
38 00000000° EF 3 00 MOVAB TYPRSTLOC, R 
2 04 AC DO 00010 MOVL LORSTPTR 
5 8 A? DO 00014 MOVL (R7), OLDPT 
53 68 DO 00018 MOVL.  TYPRSTLOC, NEWRSTPTR 
65 2¢ 0018 DIVL3 #2, (OLDPTR), R 
78 984 DE OO1F MOV af fenstLocensy, TYPRSTLOC 
$8 1 3 00 3 ADDL2 #24, TYPRSTLOC 
4 18 «OA 026 MOVAB 24(R3), NEWPTR 
5 3 DO O002A MOVL NEWRSTPTR, (NEWRSTPTR) 
04 A D D MOVL NEWRSTPTR, 4(NEWRSTPTR) 
8 A D4 1 CLRL B(NEWRSTPLR) 
OC OA rc x va 2(R7), 12(NEWRSTPTR) 
14 OA 08 9 9 MOVE #11, 20(NEWRSTPTR) 
16 AS B4 CLRW 22 (NEWRSTBTR) 
08 a3 36 D0 MOVL R6, B(NEWRSTPTR) 
4 CLRL j 
if 1 BRB $ 
FC AGG p 1$: MOVL TyPRSTLOC, -4(NEWPTR)CI) 
5 1 ASHL st} 
00 8B FC AS4O OD MOVL “4 {ot ptAD (R09, aTYPRSTLOC 
: 04 5 ADDL2 #4, TYP 
1 ASHL = #1. 
6540 DD PUSHL alte RO) 
FFGA cf QI F CALLS #1, COPY_COMP_LIST 
2 6 F 2%: AOBLEQ R6, I, 18 


2 


- 


4 
R youre bee see 138 9: 33:8) AX-11 Bliss-32 v4.0-742 Page 164 


DEBUG. S RCI STENTR i.832;2 (24) 
7 oD 0 2 PUSHL 87 : 5181 

69 1 FB C CALLS DBGSREL_MEMORY : 
5 0D F PUSHL Ou bet + 5182 

$2 9] 4 1 CALLS bn DEGSREL MEMORY 3 
0 3 } 74 MOVL NEGR STPTR, RO 3 5183 
4 00077 T : 5185 


; Routine Size: 120 bytes, Routine Base: DBGSCODE + 27€3 
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RSTCNTRL 16-Sep-1984 02:53:41 AX-11 Bliss-32 V4.0-742 Pa 5 
you+000 1o- 808-1382 95:78:54 DEBUG. SRCIRSTCNTRL.832;2 ge 38} 
; 7 ROUTINE COMP_LIST_ADD_ENTRY(COMP_LST_PTR, COMP_LST_SIZE, VALUE): NOVALUE = 
8 i FUNCTION 


This routine adds an entry to a ‘component List’’. Such a List consists 
of a memory block whose first longword contains a count giving the num- 
ber of entries on the List. The longwords that follow contain the List 
elements, one per longword. This routine increments the count and a 

pends the new component value to the list. If this would cause the list 
memory block to overflow, a new, larger block is allocated and the List 
is copied to that block before the new value is appended. 


INPUTS 
sorted * - The address of the pointer to the component List memory 


! 
i 
i 
i 
i 
i 
i 
i 
i 
44 lock to which the new value should be appended. 
O36 : COMP_LST_SIZE = The address of the location giving the number of List 
09 : components the memory block can hold. This is one less than 
Boe the size of the List memory block in longwords. 
O28 VALUE = The value to be appended at the end of the component List. 
098 ! OUTPUTS 
099 : COMP_LST_PTR = If a new memory block had to be allocated to accommodate 
00 ; the new List entry the address of that new memory block is 
1 ; returned to COMP_LST_PTR. The old block is deallocated. 
08 ; COMP_LST_SIZE = If a new memory block had to be allocated to accommodate 
04 ’ the new List entry, the number of List entries the new memory 
82 block can hold is returned to COMP_LST_SIZE. 
07 
08 BEGIN 
09 
MAP 
COMP REF VECTOR 


_LST_PTR: C1 
COMPILST“SIZE: REF VECTORL 


} ! Pointer to pointer to component List 
14; ! Pointer to size of component List 


LOCAL 
LISTPTR: REF VECTORC,LONG), ! Pointer to component List 
NEWPTR; ! Pointer to new memory block for List 
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! If the component List memory block is about 


to overflow, get a new, 
block and copy the contents of the old block in 
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! 
' larger aenery to the 
new block. Then release the old block to the free memory pool. 
LISTPTR = . LST_PTRCO); 
if Cisterato3 EOL TCOMP_LST_SIZECO) 
BEGIN 
NEWPTR = DBGSGET Penne < .COMP LST SIZECO} + 11); 
See erat TPTRCO) + 1), CLISTPTR, .NEWPTR); 
COMP_LST_PTR[O) = .NEWPTR; 
COMP"LST SIZELO) = .COMP_LST_SIZECO) + 10; 
DBGSREL_PEMORY(.LISTPTR); 
LISTPTR = .NEWPTR; 


2 | 


RSTCNTRL 1b-5¢ $ep-1984 133: AX-11 Bliss-32 V4.0-742 P 

yous000 ~ge7} 38 96: 1 DEBUG. SRC ACIRS ASTENTR L.832;2 age 396 vi 
3; 51 43 ND; 

ie eaoes jee 

: ; rh Append the new value at the end of the component List vector. 

: 51 48 LISTPTR(O) = st! s1PTRCO) +1; 

: 5140 4 LISTPTR -LISTPTRLOJ) = val; 

3; 5141 0 RETURN; 

: 14g 1 

3; 514 2 END; 


00FC 00000 COMP_LIST_ADD_ENRY: 


Save R2,R3,R4, “RS R6,R7 : 5186, 
56 04 BC 00 00002 MOVL a@COMP_LST PTR Listétr : 5233) 
5 8 D 443 MOVL ISTPTR) > 3 5234) 
08 BC D1 00 CMPL » acomP “St SIZE ; 
3 le 9000 BNEQ ; : 
7E 08 BC B C OOF ADDL3 #11, @COMP_LST_SIZE, -(SP) : 5237) 
000000006 00 gi FB 00014 CALLS #1, DBGSGET_M EAORY ; 
57 0 p 0018 MOVL RO. : 
50 32 2 001 SHL #2. Ro, mf : 5238 
5 4 g 0 ADDL2 #4. R ; | 
67 66 9 00 MOVCS RO, (LISTPTR), (NEWPTR) : 
06 BC 57 D0 00029 MOVL. WNEWPTR, @COMP LST : 5239 
08 BC 0a CO 990 D ADDL2 #10, aCOMP_LST_SIZE : 5240. 
56 DD 00031 PUSHL ListerR : 5241) 
000000006 00 g1 FB 999 3 CALLS DBGSREL_MEMORY : 
56 7 DO Q005A MOVL NEGPTR LISTPTR : 5242) 
66 6 00030 18 INCL (LISTPER) : 5248 | 
50 66 00 09 F MOVL (LISTP > 5249 | 
6640 0c AC dO 00 42 MOVL ‘VALUE, TH) tstOrey cro} : 
04 0004 RET ; 5282 | 


; Routine Size: 72 bytes, | Routine Base: DBGSCODE + 2858 | 
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ROUTINE GET_MEM(LENGTH) = 


FUNCTION 
This routine gets a memory block of a speci tied ttz¢ from the free mem- 
ory pool. f there is no wenery left in the pool, it expands the free 
ct pook via DBGSEXPAND_MEMORY (which gets more space from the seers 
vie SEXPREG). It then get$S the desired block from the expanded pool. 
if ee epee fails for some reason, zero is returned instead of a 
oc ress. 


i 

i 

i 

i 

i 

i 

i 

4 

: This routine is used only during Run-Time Symbol Table initialization. 
; After that, the free memory pool is not allowed to expand into the user 
; address space because that could cause DEBUG space and user space to 

: become checkerboarded. That would make it more likely that the Debugger 
could interfere with the behavior of the user program being debugged. 

' 

i 

i 

i 

i 

i 

i 


INPUTS 
LENGTH = The length in longwords of the desired memory block. 


OUTPUTS 
The start address of the returned memory block is returned as the value 
of GET_MEM. If no memory could be found, an error is signalled. 


BEGIN 


' Pointer to the allocated memory block 


ADDRESS, 
STATUS: BLOCKC1,LONG); ! Status code from DBGSEXPAND_MEMORY 


! Get the desired memory block from DBGSGET_MEMORY. If that succeeds, 
} simply return the block's address right away. 


ADDRESS = DBGSGET_MEMORY(.LENGTH, 0); 
IF .ADDRESS NEQ O THEN RETURN .ADDRESS; 


! If we could not get any memory, try to expand phe memory pool. If that 


faiis, signal an error message (no free memory). 


STATUS = DBGSEXPAND_MEMORY(MAX(16384 - 3, .LENGTH + 1)); 
IF NOT .STATUS THEN” SIGNAL (DBG$_NOF REE); 


! The mennee pool was successfully expanded. Now allocate the block we 
desire--this time it is guaranteed to work. 

RETURN DBGSGET_MEMORY (LENGTH); 

END; 
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GET_MEM:.WORD Sa 
52 000000006 om ee ROVAB DBeScEt LMEMORY, R2 
AC BD PUSH 
62 f CALLS sn _pascer MEMORY 
BNEG 
50 06 ac C ADDL3 #1, LENGTH, RO 
0 Dp PUSHL R 
00003F FD E i CHL (SP), #16381 
3FFD BF O3C MOVZWL #1638) 
000000006 1 fe 10( ANS: CALLS” AI 5 OReSEAPAND, MEMORY 
ve 
jo F DD 000 PUSHL S166 
000000006 1 FB A CALLS #1, LIBSSIGNAL 
04 AC DD 00041 28: PUSHL TH 
01 FB 00044 CALLS #1, DBGSGET_MEMORY 
04 00047 3% RET 


; Routine Size: 72 bytes, Routine Base: DBGSCODE + 28A3 
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i INPUTS 


i OUTPUTS 
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ROUTINE GET_MOD_RST(MODNAMEPTR, LENGTH) = 
i FUNCTION 


This routine looks up a sgec {fied mos e name in the RST and returns a 
pointer to the corresponding Module R Yentre. 


MODNAMEPTR = A pointer to the first character of the ASCII string con- 
taining the desired module's name. 
LENGTH = The Length of the module name in characters. 
A pointer to ae specified module's Module RST Entry is returned as the 
routine’s value. If no such routine exists in the RST, a zero 
is returned instead. 
BEGIN 


LOCAL 
DSTNAME: REF VECTORC BYTE), 


RSTPTR: REF RSTSENTRY; 


Pointer to the current module's name 
in the DST (as Counted ASCII) 

& oy to the current Module RST 
ntry 


$ syere® the RST Module Chain for a module with the specified name. If we 
! find such a eoduiee exit the search loop with RSTPT paint ing to the 

! desired Module RST Entry. If we exhaust the loop, RSTPTR is zero. In 

; either case, return whatever value RSTPTR has. 


RSTPTR = .RSTSSTART ~ADOR; 
WHILE .RSTPTR NEQ O7DO 


BEGIN 
a -RSTPTRCRSTSV_ANONMOD J 


BESie 

DST = DBGSGET pst. name (8s PIACRS TS. DSTPTR)); 

IF CHSEOL DSTNAMELO]; DSTNAMEL1], .LENGTH, .MODNAMEPTR, 0) 
EXITLOOP; 

END; 


A gay = .RSTPTRCRSTSL_NXTMODPTRI; 


RETURN .RSTPTR; 
END; 


<z 


MOVL RSTPTR, RO 


“Sep-1 1 AX-11 Bliss-3 $742 Pp 70 R 
aes OB:5H:S)  WABSUE.SASecHR Ys %6082, ese |t 
hese tng “asain | 
Vv . e 
HOVE R WEstakt ADDR RSTPTR : | 3 
19 28 BBS #2. 4O(RSTPTR), 2% + 5341 ; 
PUSHL 1 tRSTPTRY. : 5344 ; 
hes hour RO beinanes ne ony 
ROVzBL COSTNANE) , RO + $345 : 
00 01 CMPCS RO, 1(DSTNAME), #0, LENGTH, @MODNAMEPTR : | ; 

BEOL 3$ F 

MOVL (RSTPTR), RSTPTR : | 

BRB : 


; Routine Size: 51 bytes, Routine Base: DBGSCODE + 28EB 


4 | 
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ROUTINE GET_TYPEPTR(DATA_DSTPTR, MODNAMEPTR, TYPE_DSTPTR, ARRAY_FLAG): NOVALUE = 


FUNCTION 
This paodes determines whether a given data item is of a record type or 
an enumeration type, and if so, what the address is of the DST record 
which defines that type (the Record Begin or Frumeration ype Begin DST 
record), The routine is called dering the RST build procedure so that 
the R TS. _TYPEPTR field can be filled in for record and enumeration type 


a 
Sa 
o 
z 
_ 
zz 
rc 


SEESAS SSSA MISSES ARORA SSR UTTER B 


If the giyen data item is of an arra type. this routine determines if 

the array's cell type is a record date ype. If so, the address of the 
cell type's Record ogee DST record is returned and TRUE is returned to 
the ARRAY_FLAG parameter. 

dure to build the record type's Tyee RST entry so that it has a refer- 

ence pointer to the orcey Data RST Entry. This information is later 

used by the DBGSSTA_GETSYMBOL routine during symbol Lookup. 


etermined. 
MODNAMEPTR = A pointer to the current module's name as Counted ASCII. 


TYPE_DSTPTR = A pointer to a longword location to receive a pointer 
to a Record Begin or Enumeration Type Begin DST record. 


ARRAY_FLAG = A pointer to a longword location to receive the array 
flag returned by this routine. 


OUTPUTS 
TYPE_DSTPTR = If the data item is an object of a record or enumeration 
data type, the address of the corresponding Record Begin or 


If the data item is an array whose cell type is a record data 
type, the address of the cell type’s Record Begin DST record 

is returned to TYPE_DSTPTR. In all other cases, zero is re- 

turned to TYPE_DSTPTR. 


ARRAY_FLAG = If the data item is an array whose cell tyes iss reserd. 
erwise, 


OOOOOOOOW® SF 
PROPORIMONOPOPUPOPRY tt 2 wt wt 0 0 0 0 tt 


data type, TRUE is returned to ARRAY_FLAG. 
is returned to ARRAY_FLAG. 


No value is returned. 


SN SSSELE 


BEGIN 


SSLESRENLSSS 


P 
TYPE _DSTPTR: REF yecroet i). ' Pointer to Type DST pointer longword 
ARRAY_FLAG: REF VECTORC1); ! Pointer to array flag longword 


OCAL 
DSTPTR: REF DSTSRECORD, ! Pointer to the current DST record 
FBPTR: REF BITVECTOR(), ! Pointer to Array Type Spec flag bits 
LOCAL_ARRAY_FLAG, ! Set to TRUE if data item is an array 


Po oF ot oF at at ak ek ed tk tk ek 


a at at at 


Wn—O 


This information allows the RST build proce- | 


INPUTS 
cacte deine - A pointer to the data item DST record whose type is to be 
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i 

i 

i 

i | 
| 
: This is used only for error messages. | 
i | 
i i 
i 

i 

i 

t 

: | 
: | 
. | 
: Enumeration Type Begin DST record is returned to TYPE_DSTPTR. | 
| 
i 
; | 
: 

i 

i 

i 

i 
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ee 


Kk 4 
1eeSep-19be 19:18:36 EDeaUG.SRCIASTENTRL -ases2 
TSPTR: REF DSTSTYPE SPEC, 
' 


! Pointer to a DST Ty 
VSPTR: REF DSTSVAL_SPEC; ! Pp 


pe Spec 
ointer to the descriptor Value Spec 
: in an Array Type Spec 


} Initially we clear both output parameters. 


TYPE_DSTPTR(O) = 0; 
ARRAY FLAGEOS = FALSE; 


! Unless the data item is a OSTes fer rve DST record, it cannot point to a 
: record or enumeration type definition, so we return immediately. 


DSTPTR = .DATA_DSTPTR: 
IF .DSTPTRCDSTSB_TYPE) NEQ DSTSK_SEPTYP THEN RETURN; 


vance DSTPTR past the DSTSK_SEPTYP record. If the next record is a 
spel <sen nent record, skip past that too to get to the record 
fining the data type. 


PTR = DSTPTRCDSTSA_NEXT] + 

R= sets ab tt Bst( .0ST 

DSTPTRLDSTSB_TYPEJ EQL DSTS 
EXT) 
ST¢ 


wv 8-a 
— 


STPTRCDSTS$B_LENGTH); ! p01 
R); 
GLOBNXT 


-DSTPTRCDSTSB_LENGTH); ! p015 
-DSTPTR ); 


e 
K 


i) 

T 
DSTPTR = DSTPTRCEDSTSA_N + 
DSTPTR = DBGSRST_NEXT_D 1) 
! Loop through any Type Spec indirection in the DST so we can get to the 
! ultimate thee spect t ication for the data item. ° 


LOCAL_ARRAY_FLAG = FALSE; 
WHILE- TRUE Bo 
BEGIN 


! If we have now gotten to a Record Begin or Enumeration Type Begin DST 
! record, we exit the indirection loop and return a pointer to that DST 
: record to TYPE_DSTPTR. 


if -DSTPTREDSTSB_ TYPE EQL DSTSK_ 
If DSTPTREDSTSB_TYPE] EQL DSTSK_ 


BEGIN 
IF ,LOCAL_ARRAY_FLAG THEN RETURN; 
EXITLOOP; 


RECBEG THEN EXITLOOP; 
ENUMBEG 


f DSTPTR points to gnything other than a Record Begin, Enumeration 
ype Begin, or Type Spec DST record, there is an error in the DST. 


gDSTPTRCOSTSB_TYPE) NEQ DSTSK_TYPSPEC 


ee 
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18-00-1984 M5355, OeEdS Ohi SRs Pewter esses 09 38) 
SIGNAL(DBGS_INCDSTNES, 1, .MODNAMEPTR); 


This is a Type Spec DST cs Loop through ony ne ay oe cell 7, 
in Array Type Specs mes 2 9s to an ene icost ype Spec or 
Length Ty : Spee (which alse irects). ogee to. an Ind rect. 
or Novel ~— Type Spec, we 8 pick up the fi “Os pointer and con- 
tinue the outer loop; otherwise we return a zero to TYPE_DSTPTR. 


ISPTR = DSTPTREDSTSA_TYPSPEC_TS_ADDR] + .DSTPTRIDSTSB_TYPSPEC_NAME]; 
wee ty dO 


SSNS 


MFO OONOUS wn 


Sen leet ie Ret ek Rett 


! If this is an Indirect Type Spec, get the new DST pointer and 
continue the outer loop. 


If, TSPTRCDSTSB_TS_KIND} EQL DSTSK_TS_IND 


co Co 
ooo 


BEGIN 
DSTPTR = DBGSRST_DST_PTR( .TSPTRCDSTSL_TS_IND_PTRI + .DSTSBEGIN_ADDR ); 


: If this is a Novel Length Type Spec, do the same thing. 
ELSE IF .TSPTRCDST$B_TS_KIND] EQL DSTSK_TS_NOV_LENG 


BISREALLS 


BEGIN 
DSTPTR DBGSRST_DST_PTR( .TSPTRCDSTSL_TS_NOV_LENG_PAR_TSPEC] + .DSTSBEGIN_ADDR ); 
END ; 
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06 ! If this is an Array Type Spec. set the array flag and determine | 
07 . yn the cell type can be a record type. If not, return zero 
4 08 ' to TYPE_DSTPTR. erwise, get the pointer to the cell type Type 
re 99 Spec ae continue the inner loop. 
Z 1 rads, IF .TSPTRCDSTSB_TS_KIND] EQL DSTSK_TS_ARRAY 
409 18 | 
rts 14 T ARRAY FLAG = TRU 
408 13 FBPTR = sant iat TS sina _FLAGS_ADDRI; 
411 19 FBPTR + COTSPT TaLOST SréB_ TS_ARRAY_DIM] + 8)/8; 
tig 8 IF sulle VS_VFLAGS) EQL”DSTSK_VS"FOLLOWS 
ai% TSPTR = VSPTRCDST$B_VS_ALLOC] + .VSPTRCDSTS$W_VS_LENGTH) 
rh | § ELSE 
41 ; TSPTR = VSPTRCDSTSA_VS_TVS_BASE); 
ci8 5 END 
3) $ 


RSTCNTRL 6-se -1 :5 AX-11 Bliss 4.0-742 Page 174 R 
you+000 1B-Se0-1984 93:73:55 Hokaue. Shcdastewtnc esse 9° 28) \ 
3; 546 ! for any ocher kind of Type. Spec. it is not possible to reach a i 
3; 34 ! Record Begin or Eousere ype Begin DST record so we return : 
3 re ¢ zero to TYPE_DSTPT ; 
: 54 g ; i ELSE : 
2 3¢ ? 2 RETURN; 
3 4 : 5 END; ! End of inner cell type loop : 
: ri ; : 4 END; ! End of outer indirection loop 3 
: 54 : 
3; 54 40 ! We found a Record or Enumeration Type type specification. Return a $ 
3 ri 5 23 H pointer to the corresponding DST record and return the array flag value. : 
: 54 208 ivpe DSTPTRCO] = .DSTPTR ; 
: 54 544 IF .5STPTR NEQ 0 THEN ARRAY -FLAGCO] = .LOCAL_ARRAY_FLAG; : 
; $649 345 ETURN; 
> 5441 309 END; 
YPEPTR: ; 

wipes aaa ls af Save R2,R3,R4,R5,R6,R7 : 5357 : 

57 00000000 EF 9€ 0000 MOVAB DSTSBEGIN ADDR, R7 ; : 

0C BC D4 000 CLRL  a@TYPE DSTPTR : 54 4 : 

10 BC 04 0000C CLRL @ARRAY_FLAG : 5423) : 

54 06 AC b0 0000F MOVL DATA_DSTPTR DSTPTR 3 5429, : 

A3.soBF 01 AG O91 99013 CMPB  =s«sACDSTPTR), #1 : 5430) F 

in M3 O0tA Push. OS tPre : 5438. : 

FAF6 cr 1 FB a9i¢ CALLS 4g ppcsnst. NEXT_DST : | 3 

AO BF 01 A oT 00 4 CMPB NbSTBTRY” #160 : 5439 | : 

fbb 00098 PUSHL DSTPTR t 5442. ; 

FAES f i FB 0 CALLS a. beesast _NEXT_DST : F 

Nt ° Py 

6 ps ‘ ; 1$: CLAL totat ARAAY x AG + 544 : 

ABO 01 A& 91 00037 28: CMPB (DSTPTR), : 545 : 

ee a : 7 

AS BF 01 a 91 38: CPB 1(DSTPTR), #165 ; 5458 

7A % § y! é BL aC LOCAL_ARRAY_FLAG, 12% + $461 ; 

U Ps ‘ 

AF OG 01 As | 48: cHPe J{DSTPTR), #175 ; 5469 

08 ac DD PUSHL MODNAMEPTR : $471 : 

0002896a §F bb PUSH 250 

000000006 $8 Os FB me CALLS fer 1BS$SIGNAL 5480 

88 a0s4 9E 00069 MOVAB RiSsTPTRD no TSPTR : : 
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3R5), TSPTR 
DSIPTR, @TYPE_DSTPTR 


LOCAL _ARRAY_FLAG, @ARRAY_FLAG 
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ree ‘3 ROUTINE MERGE _CONT 
445 i FUNCTION 
44 ; . iven a DS 
44 ’ f there a 
44 : if so, we 
449 4 s allocat 
4 1 é It returns 
4 § 3 i The two pa 
454 ‘ the virtua 
455 : virtual ad 
4 $ ; cont inuati 
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4 § i It assumes 
£60 : mapped in 
46 i INPUTS 
465 ; PASSED_DST 
465 ; PASSED_NEX 
iss ? a 
469 i OUTPUTS 
470 : If there a 
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1b-se =1986 02:53:41 AX-11 Bliss- 
1 735p- 1382 93:78:38 EOeaug. Sacdas 
INUATION_DST(PASSED_DSTPTR, PASSED_NEXT_DSTPTR) = 


T pointer, this routine scans ahead in the DST to see 
re continuation records following this DST record. 
merge all of these into a single DST record which 

ed from DEBUG's memory pool. 


TRUE if it encountered a continuation record. 


rameters are in-out parameters in which we return 
lL address of the merged DST record and the 

dress of the next DST record. If there were no 

on records then the address in PASSED_DSTPTR 


is left unchanged. 


that it has been given a OST pointer within the 
DST, not a moved DST record. 


PTR = Pointer to a DST record passed by reference. 
T_DSTPTR = Out parameter in which we fill in 


ut 
e address of the next DST record, after reading 
st any continuation records. 


re continuation records, a block of memory large 
hold the merged record {s allocated, and the 


spercor vate bytes are copied into this block. A pointer to 
this newly constructed DST record is returned in the in-out 
parameter PASSED_DSTPTR. 


47 If there are not any continuation records the passed DST pointer 
of is returned in PASSED_DSTPTR. 
4 In any case the next DST pointer is calculated and returned in 
rs ¢ PASSED_NEXT_DSTPTR. 
rt} The routine value is TRUE or FALSE, for whether any continuation 
cB records were seen. 
ri 3 BEGIN 
‘8 
4 PASSED_DSTPTR: REF VECTORL1) ! Explained in routine header above 
re PASSED_NEXT_DSTPTR: REF VECTORL1);! Explained in routine header above 
49 LOCAL 
CONTINUATION_FLAG: ' Did 


we see a continuation 
INITIALC(FALSE), ! record? 
F DSTSRECORD ' The current DST pointer 
ENTRY: REF MOESRECORD,' Pointer to a Moved DST entry 
' New DST record under construction 
; ze of new DST record 
! Po 


R: REF DSTSRECORD, nter to new DST record 


teeeweweewenewennt <a= “NEXT_DSTPTR' in code below | 


wv 


5 
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vo4=000 Ve-8ep-1986 49:18:36 EDgeuG. SRESASTENTRL -BSee2 29) 
; 605 NEXT_LEN, : bength of next DST record 
: ? TEMP_PTR; ! Temporary pointer to new DST record 
‘se 
; 5 610 ! Because it is easy to be off by +1 or <1 when copying bytes around, 
: 509 oi) I'LL explain the algorithm in detail using pictures. 
; 4 gg ! Here is our situation at the start of the Loop: 
; 614 ' X = .DSTPTRCDST$B_LENGTH) 
3 19 oF : Y = .NEXT_DSTPTR BST$B_LENGTH) 
: 12 $18 ' peers oeoueaaceant a €eee “DSTPTR' in code below 
; 551 218 ! + count = Xx H : 
; 55146 61 $  tuwwwwweeweooon=+ ‘NEW LENGTH’ in code below 
: a1? : 9 : $ X bytes H 
H 517 62¢ i feeentitewnnnnnns v <== "'NEXT_DSTPTR" in code below 
3 13 6 ¢ + count = Y } 
g 51 6 4 ' gees eeawocce sown n + j 
; 2 , ? 5 i CONTIN code H . 
5 : § 56 ; : { Yel bytes 1 "NEXT_LEN’’ in code below 
; : : se 1 ; Here is our situation after one or more times around the Loop: 
3 2 3 is : This is the DST in temporary memory that we've built so far: 
: 5 6 5 ! ¢eeeeeoae nee ween + a Cece “DSTPTR' in code below | 
; 5531 6 $ : t count byte : : 
3 35 § 6 ! tenwoooceeo-- “--+ ‘'NEW_LENGTH’’ in code below 
; ; $ 3 : X bytes H 
: 5 5 5640 ; : 4 A Oe, » 
: 5537 ii This is where we are in the original DST: 
: 5539 644 i 
5 0 645 ' 
3 1 >t | : 
; 64 ; 
5 26 : 
; 64 3 
4 i 
: i 
. 1 
‘ i 
. t 
: i 
. ' 
: i 
P4 t 
: 1) 


PPP PPPS PVPS SSIS SSSI TTI 


4 + count = Y : 

4 Powman nose traw oan } 

in : CONTIN code: E 

ah § : Y= bytes | “NEXT_LEN’ in code below 

545 650 : oes H H 

266 651 ¢eowmeescesceotrocoanwas $ Vv 

54 636 } : 

268 65 ! "NEW LENGTH’ always represents the Length in bytes (including the 

54 654 ' count byte) of the DST record we have built so far out of temporary 
550 655 ! memory. This implies that NEW_LENGTH is X¢1 at the start of the loop. 
551 626 ' "NEXT_LEN’ always represents Ehe amount of bytes we are going to 

238 65 ' append on to the DST record we are building. This is always Y-1 bytes. 
$3 $28 LENGTH is thus incremented by NEXT_LEN each time around the loop. 
555 660 STPTR = ,PASSED_DSTPTR(O): 

556 661 NEW_LENGTH = .DSTPTRCDSTSB_LENGTH) + 1; 
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1E-sep-1984 03:55:41 
s1P 


Ax-11 Ot igse se V4.0-742 
1 C TCNT 
DSTPTRCDSTSA_NEXT] + .D 
TBIREDSTSB TYPED EQL DS 


DEBUG. SRCJRSTCNTRL .B32;2 


NEXT _DSTPTR = TPTRCOST$B_LENGTH); 
WHILE .NEXT_DS $K_CONTIN BO 
BEGIN 
Compute the new size and allocate enough memory for a merged record. 
NEXT_LEN = .NEXT_DSTPTRCDSTSB_LENGTH) = 1; 
NEW_CENGTH = .NEQ@_L H + NEXT LEN; 
NEW-DSTPTR = DBGSGET_TEMPMEM((.NEW_LENGTH + 3)/4); 
Move the bytes into the merged record. 
TEMP ae = CHSMOVE(.NEW LENGTH = .NEXT_LEN, .DSTPTR, .NEW_DSTPTR); 
CHSMOVE(.NEXT_LEN, .NEXT_DSTPTR + 2, .TEMP_PTR); 
Move the new DST pointer into place. 
DSTPTR = .NEW_DSTPTR; 
Set the continued flag. 
CONTINUATION_FLAG = TRUE; 
Try another. 
NEXT_DSTPTR = NEXT_DSTPTRCDSTSA_NEXT] + .NEXT_DSTPTRCDST$B_LENGTH); 
! When there was a continuation record 
4 1 We move the record to permanent memory and 
! release the temporary —y" 
2 Add an entry to the moved DST List 
if (.CONTINUATION_FLAG) 
THEN 
BEGIN 
IF ((.DSTPTRCDSTSB_TYPE] EQL DSTSK_VARVAL) OR 
(.DSTPTREDSTSB_TYPE) EQL Bate -BO0L) OR 
(.DSTPTRLDSTSB_TYPE] EQL DSTSK_SEPTYP) OR 
(.DSTPTRLDSTSB_TYPE) EQL DSTSK_ENUMELT) OR 
(.DSTPTRLDSTSB_TYPE) EQL DSTSK_VARBEG) OR 
(.DSTPTRLDSTSB_TYPE) EQL DSTSK_RECBEG) OR 
(.DSTPTRCEDSTSB_TYPE) EQL Daten. tuPanee) OR 
(.DSTPTRLDSTSB_TYPE) EQL DSTSK_LBLORLIT) OR 
(.DSTPTRUEDSTSB_TYPE] EQL DSTSK_LABEL) OR 
— DSTSB_TYPEJ EQL DSTSK_OVERLOAD)) 
BEGIN 


! Move the record to permanent memory and release the memory. 
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yous000 eageett8Re 98:35:55 | Hoses BACSRs Fen tec wesee 9° 39) 
1 1 ' 
1 TEMP_PTR = DBGSGET_MEMORY( (.NEW_LENGTH * 3)/4 ); 
1 CHSMOVE(.NEW LENGTA, .DSTPTR, .TEMP_PTR); 
DSTPTR = .TEMP_PTR; 
1 
Get and load the new Moved DST Entry. 
ROVED _DST_ENTRY = tf $GET MEMORY CMDESK ENGTH) ; 
or DST~ ENTRY noes L -ORTGINAL “PA =DSTPTRCO); 
MOVE DESC NE Xf pstre STP TR; 
MOVE MDESt REAL “LENGTH = iNEW_CENGTH; 


Link it up. | 


hOvED DST_ENTRYCMDESL_FLINK] = .DBGSGL_MOVED DST_LIST_HEAD; 
DaGsoL_ MOVED_DST_LIST-HEAD = .MOVED_DST_ENTRY; 


ELSE 


oe 


| 
SDBG_ERROR('RSTCNTRL\MERGE_CONTINUATION_DST'); 
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2 t END; 
640 745 

641 74 ' Return the values. 

648 74 i 

64 74 PASSED -PSTPTREQ] = .DSTPTR 

644 74 SSED"NEXT_DSTPTRCO] = SNEXT _DSTPTR; 
645 750 RETURN . CONT INUATION_FLAG; | 
646 751 | 
5647 752 END; 


.PSECT DBGSPLIT,NOWRT, SHR, PIC,O | 


45 47 22 45 4D 5C 38 54 ra 54 53 52 IF Fe P.AAU: .ASCII <31>\RSTCNTRL\<92>\MERGE_CONTINUATION_\ : 
SF 4F 49 54 di 4E 4 Sa 4€ 4F 435 SF 001 : 
54 53 44 00176 -ASCII = \DST\ : 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
OFFC 00000 MERGE Sag eabe DST: . 


' save R2,R3,R4,R5,R6,R7,.RB,RI,RI0,R11 > 5548 | 
5E 08 C2 SUBL2 #8, SP : | 
04 AE D0 CLRL CONTINUATION FLAG : $591. 
9 4 BC HOVE @PASSED_DSTPTR, DSTPTR : 5660 
0 69 9A C MOV ZBL CDSTPiRy. RO : 5661 
1 AO 9E MOV 1(RO), NEW ; | 
1 A04 F mOVAB. 1(RO) (DST PTR + MET grstPrR + $662 | 
AD soBF 1 As 18 1$: CMPB) = s«A(NEXT_D STPTRS. : 566 
12 0001D BNEQ 28 : 


fF 5 
vo4=000" Laan 3:48:38 EoeauG. SacSastentac.esee2 Pee 28) 


R 
v 


A 68 9A MOVZBL (NEXT DSTPTRD. R10 : 5669. : 
7 fF OA ; MOV 1¢R10) - NEXT_LEN ; | ; 

57 3 ADDL rae LEN, NEW LENGTH + 5670 ; 

03 Ab 5 V Rb + 5671 : 

7E a. : DIVL YF : : 
000000006 1 F CALLS ae peéscer  EMPMER F : 

2 9 ) MOVL RO, NEW_DSTPT : : 

50 § SUBL NEXT_LER, NEW_LENGTH, RO 3 5676 3 
00 BE é Hy move RO, TOSTPTR), a@NEW_DSTPTR : : 
68 02 is 3 47 mOVC3 NEXT LEN; 2 (NEXT gRStPTR. (TEMP_PTR) : 5677 | : 
© 6F D 4C MOVL w_bstetR. : 56 ¢ | ; 

04 Ar B 4f MOVL 150M tite FLAG : 5687. : 

5 01 Anis 9 a8 ROVAB AP ENERT _DSTPTRI, NEXT_DSTPTR : $608, : 

03 06 AE EB 5 sh 2$ BLBS § CONTINUATION_FLAG, 3$ 3 $87 : 

0098 31 000 F BRW 4 : : 

50 01 Ad 9A 00061 38 MOVZBL 1(DSTPTR), RO > 5704 : 

9D = s«BF 0 91 ; 65 CMPB RO, #157 : : 

6 13 9 BEQL «6 4$ : : 

9 8F 0 91 CMPBSséRRO, «#158 + $705. : 

0 13 BEQL = 4$ : | ; 

ASB 0 91 CMPB sO, #163 3 5706 | : 

gf 13 BEQL 4$ 3 | $ 

AG sOGF 0 91 CMPB saRO, «#164 : $707 : 

¢4 13 BEQL 4$ : 3 

A? soa 30 4 cAPB RO. #167 ; 5708 : 

AB OF 2 91 CMPB 3S séRO, #171 : $709 : 

18 13 BEQL «86 4$ 3 3 

AF OF 50 93 CMPB sé, «#175 : $710. : 

12 13 BEQL © 4$ : | ; 

BA 8F 50 97 CMPB —soRO, #186 > 5711 : 

of 13 BEQL 4$ 3 3 

BB OF 6 91 CMPB OS séRO, #187 : $712. : 

Q 13 BEQL 6 4$ : : 

Ao so 91 CMPB OS séRO, #169 : $713. : 

43 (12 F BNEQ $ : ; 

5 03 Ab 9 4$: MOV (R6), RO : 5720) ; 

E 5 6 ¢ DIVL a, rb, =-(SP) : | : 
000000006 g Se. CALLS DBgsGet MEMORY ; | : 

: 0 p MOVL RO: TEMP PT : | : 

68 g 6 MOVC3 NEW LENGTH, (DSTPTR), (TEMP_PTR) : 5721. : 
9 gD MOVL pt 6STPTR i 20ee : 

DD PUSHL @ : 5727 : 

000000006 0 1 F CALLS DBGSGET ; | ; 

04 A 04 gD VL SpAsses® SIPIRY e{noven DST_ENTRY) : 5728. : 

: A D MOVL DSTPTR, (MOVED _DST > 5729 | ; 

10 A 8 0 MOVL T_DSTPTR, STROVED DST ENTRY) : 5730. : 

oc A 6 D MOVL NEW U CENGT TH, 12(MOVED_BST_ENTRY) : $731 | : 

60 000000006 D MOVL DBGSGL | mov veéD Dstt LIST_HEAD, = : 5736) : 

000000006 00 5 MOVL VED_BST_ENTRY, DBGSGL_MOVED_DST_LIST_HEAD ; 5737. : 

1 E BRB > 5704 | : 

00000000° i oF e4 5$: PUSHAB p AAU : 5741 | ; 

00028362 F DD OOOEC PUSHL #164706 : : 


SESE aE SR EET RAR Bie ee rE a a 


gee iSeseo-toge 03:54) pane oLiggc te ve 0-742, 
105 RET ‘ : 


; Routine Size: 262 bytes, Routine Base: DBGSCODE + 29€E 


ec 


if 5 
12780071882 98:73:33 Hkade She bRstew tac wsoe2 Page 155 


—_ = 


ROUTINE POSITION_GST(GST_REC_FLAG) = 


FUNCTION 
— ore positions 8 as on at Rig | start of the GST or at the next 
al record, depend nput parameter. It expects the 
variable GSTSBEGIN AD a to 9 contain a ederees of the first GST 
record and née cts GSTSNEXT toner to o,¢° nt te the “‘current’’ GST 
record. GST ADDR is updated n 
tial record’ is updated 


routine as the “‘next sequen- 
returns the address of the record 


The 
to which GSTSNEXT_ADDR is then rour ne as its value. 


INPUTS 
GST _REC_FLAG - If this flag is non-zero, the GST is pogeese renee to its 
rst record and the address of that record returned as 


the routine value. If this flag is zero, the address of the 
next sequential GST record. is returned as the routine value. | 


OUTPUTS 
If GST_REC_FLAG is non-zero, the address of the first record in the GST 
Ts returned as the routine value. If GST_REC_FLAG is zero, 
the address of the next sequential GST record is returned as 
the routine value. If there is no next sequential GST record, 
zero is returned as the routine value. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
77 BEGIN 
77 | 
780 OWN | 
781 RECORDS_LEFT; ! Number of GST left 


Be Se Se Se Se Be Se Se Se Se Se Se Se Se Se Fe Se Se Se Ge Se Se Ss Ge Se Fe Se Ge Se Se Se Ge Se Se Se Ge Ge Se Fe Se Se Se Se Se SH SS Se Ge Se Se Se Ge Ge Oe Se Se oe 


7 
7 ; CAL 
7 BLOCK ADDR ! GST address 
? 5 GST_NEXT_ADDR: REF VECTORC,WORD); i Virtual Address of next GST 
7 ' 
788 
789 : If there is no mapped GST, signal error. | 
73 if (.GSTSBEGIN_ADDR LEQA 1) THEN SIGNAL(DBG$_INVGSTREC); 
a4 | 
rts: re : Flag is cleared to indicate the pointer should be re-positioned to start. 
69 if NOT .GST_REC_FLAG 
$9 199 THEN 
95 199 Stan 
695 7 est EXT ADDR = .GSTSBEGIN_ADDR; 
O98 RECORDS_CEFT = .GSTSREC_COUNT; 
69 1 END; 
69 § 
: Stop the following from faulting if some caller ignores the end condition 
, 1 5 : and effectively causes us to ‘run off the end’ of the mapped GST. 
? j IF (.RECORDS_LEFT LSS 1) THEN RETURN (0); 
7 


; Routine Size: 80 bytes, Routine Base: DBGSCODE + 2AF4 


42 


T 1b-seo- AX-11 Bliss-32 V4.0-7 
-000 12-08-1382 96: 33: 3 DEBUG. SRCIRSTCNTRL.B32;2 
: 1 ! Pick up the address of the current record, and update the pointer to the 
3 f ; subsequent one. 
; 1 BLOCK K ADDR : 9 SSTSNEXT ADDR + 2; 
; at 1 GST shel “Ab = .GSTS$N xT ADDR: 
: 571 1 GSTSN xT “ADDR = .GSTSNEX ADOR® : 2 + ((.GST_NEXT_ADDRLO] #1)/2)#2; 
; ii 1g RECOR * RECORDS. lens 
: $71 1 RETURN Set bee K_ADDR) ; 
3: 57146 18 
: 5715 1 END; 
.PSECT DBGSOWN,NOEXE, PIC,2 
O4EEC RECORDS_LEFT: 
-BLKB 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
001C 00000 POSITION_GST: 
“WORD Save R2,R3,R 
54 00000000" EF 9€ 9002 MOVAB RECORDS teeTe 
53 00000000" EF 9 V GSTSNEXT raph,” 
01 FC OAS CO 0 CMPL  GSTSBEGIN eink 
OD 1A 4 BGTRU 1$ 
0002835A 8F DD 6 PUSHL #164698 
000000006 9 01 F CALLS #1, LIBSSIGNAL 
06 AC E 1$ BLBS GSf_REC FLAG, 2 
6 FC OAS COD MOVL § GSTSBEGIN_ADOR, GSTSNEXT_ADDR 
64 04 AS OD :) MOVL GSTSREC_ COUNT, RECORDS_LEFT 
64 D F 2 TSTL RECORDS_LEFT 
1A 1 1 BLEG 0s 3 
52 & p 3 MOVL GSTSNEXT ADDR, R2 
02 =A ; MOVAB 2(R2), BCOCK “ADDR 
1 5 p A MOVL R2, GST_NEXT~ ADR 
1 ¢ MOVZWL (GST_NERT_ADBR), 
1 Dd INCL RI 
51 é ‘ DIVL2 #2, R1 
63 02 A24 g MOVAW  2(R2)CR1), GSTSNEXT_ADDR 
64 p? 4A DECL RECORDS_LEFT 
50 7 B9ep 3$: CLRL RO 
F RET 
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=000 1erSee= 138s 98:75:53 HORUS Chi ses Few hes s570 age 1%) 
ROUTINE READ_DEBUGMODULE.TABLECIMGFILCHAN, IMG_DST.BLOCK, EST_RST_SIZE) = 


FUNCTION 

This routine reads in the Debug Module Table (the DMT) that the Linker 

pyts in the executable image and uses this table to pend da the Run- 
me pyabot Table (the RST). This table exists in images it by the 

VMS V4.0 and Later Linkers, dogs not exist in images built by ear- 

tier linkers. The advantage of this table is that it allows us to 

initialize the RST very rap gly conperee to making @ complete scan of 

the Debug Symbol Table (the DST), which must otherwise be done. 


The initialization takes place as follows: First the DMT is map d into 
virtual wie} Then the whole DAT is scanned, and for each DMT entry, 
ntry is built. e Module’s DST pointer is retrieved 
directly from the DMT entry and the oo | size (i.e., the amount of 
Run-Time Syayes Table space it would require if SET) is computed by 
taking the size of the module's DST (as qyen by the DMT entry) and 
multiplying it by @ scale recror which y eres @ rough spores imet len to 
the actual RST size. The estimated RST sizes of the MIN_MODS_IN_RST 
largest modules are remembered in a table as the DMT scan proceeds. 


The module Language code is not set in the Module RST Entry at this 
time. This means that no access to the DST is ne esgery during initia- 


>> PEPPER OPP, 
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i 
11! 
4 
740 te ; lization which prevents any DST paging. The initialization is thus 
a see } speeded up. The language code is retrieved when the module is SET. 
eee : For each module represented in the DMT (and thus in the DST), the DMT 
744 84 : Lists the addresses and lengths of all its PSECTs. This information 
745 se8 : is used to build the Program Static Address Table (SAT) during the DMT 
i th : scan. 
748 He : At the end of the scan, the qt tastes total RST nom requirements of 
749 26 : the several largest modules is conguses and returned to the caller. 
750 5 : This number is used by DBGSRST_INIT to determine the initial size of 
f 1 See the DEBUG memory pool. 
7 § $28 ! INPUTS | 
7 5 : IMGFILCHAN = The executable image file channel number. The image is 
f 5 28 : already open on this channel; the DMT can thus be read on it. 
7 0 : IMG_DST_BLOCK = The address of the Image Header Symbol Information 
758 1 : block which gives the locations (virtual blocks numbers) and 
759 § : sizes of the DST, the GST, and the DMT. Here we use this 
760 : block to get the DMT location and size. 
76 5 1 EST_RST_SIZE = The address of a longword to receive the estimated number 
76 ; of longwords of pyabel table space needed to hold the RST of 
ree : the MIN_MODS_IN_RST Largest modules. 
706 ' OUTPUTS 
76 : EST_RST_SIZE - The estimated number of longwords ngeded to hold the RST 
708 7 : for the BRIN MODS_IN_RST Largest modules in the image is re- 
7 % ' turned to the EST_RST SIZE location. This number is estimated 
770 7 : by mult plying thé DST size of each module by a scale factor 
44 A} which roughly estimates the corresponding RST size. 
77 76 : If the RST was successfully initialized using the Debug Module Table, 


Kk § 
16-Sep-1 53:41 AX-11 Bliss-32 v4.0-742 Pa 85 
12-800-138% 95:33:53 DEBUG. SRC SSFenVRi esse ad 1) 
: TRUE is returned as the routine value. If the inisial izes ion 
: failed for any reason, FALSE is returned so that the initial- 
i 


$3 
=e 


ization can be tried the slow way by reading the DST. 


1 
1 
1 
1 . 

BEGIN 

MAP 

IMG_DST_BLOCK: REF IHSSENTRY,  ! Pointer to the DST/GST/DMT descriptor 
: in the executable image header 


tt 

~~ 

NOUS 
~~ 


7 
5 ; 
7 4 
i 5 
f EST_RST_SIZE: REF VECTORC1); ! Estimated RST size parameter 
7 LITERAL 
7 DST_TO_RST_FACTOR = 25; ' Scale factor (times 10) for convert- 
7 9 ; ing DST size to estimated RST 
789 4 ! size for current module | 
791 B34 LOCAL 
a4 95 DMTPTR: REF VECTORC,LONG), } Potange se current Debug Module Table 
' ocation 

794 $99 DMT_SIZE ! The total size of the DMT in bytes | 
795 89 DMT~START_ADDR, i The start address of the DMT 
re 8 DSTPTR ! Pointer to Module Begin DST Record 
79 900 EXE_SECBOUNDS: VECTOR[2,LONG], | Map-section bounds descriptor for 
798 901 i SC system service 
799 44 EXE_SECNAM_DESC: VECTORC2,LONG),! Map-section name descriptor for the 
800 90 } CRMPSC system service 
o3) 904 MOD_SIZE_TBL: ' Table giving the estimated RST sizes 

§ 905 VECTORCMIN_MODS_IN_RST),! of the MIN_MODS_IN_RST Largest 
80 308 : modules in longwords. 
804 NPSECTS, ! Number of PSECTs in current module 
805 308 RSTPTR: REF RSTSENTRY, ! Pointer to current Module RST Entry 
5] RSTSIZE, ! The estimated RST size in longwords 
80 ! of current module's symbol table 
808 STATUS: BLOCKC1, LONG); ! The status returned by SYSSCRMPSC 


} 
| 
! Check that there is a Debug Module Table (DMT) in this image. If the | 
: DM ay *covnt block number or length is zero, there is none and we return 
i ' 


e 
T 
! FAL 
EST_R 
IF t. 


to the caller. This will happen if the user did not LINK/DEBUG. 
ST_SIZECO) = 0; 
1MG_DST_BLOCKCIHSSL_DMTVBN] EOL 0) OR 
IMG_DST_BLOCKLIHSSL_DMTBYTESJ EQL 0) 


EN 
RETURN FALSE; 


ts 
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Map the Debug Module Table (the DMT) into our virtual address apace, 
After going so, we set DAT_START_ADDR to point to this table. also 
set DMT_SIZE to contain its size in bytes. If we are unable to map it 
in, we ; gnal the bad status and return FALSE so that DBGSRST_INIT can 
initialize the RST the slow way by reading through the whole BST. 


MT_SIZE = .IMG_DST_BLOCKCINSSL_DMTBYTES); 
NETSECBOUNDSCOT = 200; ’ 
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XE_SECBOUNDS[1) = 1°30; 

XE -SECNAM_DESC 0} = 3. 

XE ~SECNAM Dest = UPLIT BYTE(ZASCIC ‘DMT"); 
STATU SSCRMPSC( 


IT 
TUS = SYSSCRMPSC EXE_SECBOUNDS EXE S CBOUNDS, 0, SECSM_EXPREG, 
EXE SECNAM_DE .  IMGFILCHAN, 
DAT SiZE~+ 5119/51 
.1MG_BST_BLOCKCIHSS$L_OmMTVBNJ, 0, 0); 
IF NOT STATUS 


BEGIN 
STATUSCSTSS$V 
SIGNAL(.STATO 


SEVERITY] = SYSSK_INFO; 
RETURN FALSE; 
END; 


DMT_START_ADDR = .EXE_SECBOUNDS(0]; 


! Set a table to keep track of the MIN_MODS_IN_RST Largest modules in 
: the DST. Also initialize PREV_RST_PTR. 


INCR I FROM 0 TO MIN_MODS_IN_RST = 1 DO 
MOD_SIZE_TBLC.1J7= 0; 


PREV_RST_PTR = .RSTSSTART_ADDR; 


! Now egg Be ong - h the — Module Table (the DMT) to get each module's 
: Module Begin DST Record address, size, and static address ranges. 


DMTPTR = .DMT_START_ADDR; 
WHILE. .DATPTR LSSA [DMT_START_ADDR + .DMT_SIZE DO 


! Get the DST pointer from the current DMT entry and check that it 

: ectusl ty ys to a Module Begin DST Record. Note that if we go 

! past DSTSEND_ADDR and this is a Testable Debugger. we have reached 

! the BERG part of the DST so we simply exit the loop, having already 
initialized the RST for the test program part of the image. 

) 


DSTPTR = .DSTSBEGIN_ADDR + .DMTPTRCO); 
IF ,DSTPTR LSSA .DSTSBEGIN_ADOR 


BEGIN 
SIGNAL (DBG$_INVDMTPTR); 
AT FALSE; 


it pom GEQA .DSTSEND_ADDR 


BEGIN 
IF .OBG$GV_CONTROLCDBG$V_CONTROL_TDBG) THEN EXITLOOP; 
SIGNAL (DBG$_INVDMTPTR); 

oe LUne FALSE; 


roe 
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Build the Module RST Entry for the current a Ly he het Note 

that the Language = : ngs set: this saves yee egces to the DST 
and so prevents any DST pagi ng during the RST nitial sation. Also 
Link that RST entry into the RST Module Chain. 


bL-penPTAD MODENTSIZ); 
35 DSTPTRI STPTR; 


EE 


DULE; 
= DBG K UNKNOWN: 
Tats ne NX xinooPth eRSTPTR; 


Compute the estimated RST size of this module from the actual DST size 
as Siven by the DMT entry. Store this size (in bytes) in the Module 


SSSSSSsssssess 


See eS rena esEssstoes 


oR8 RST ry. Then, if this RST tize makes this one of the several larg- 
6008 est modules, enter it in MOD -$126 TBL. Note that this table remains 
rest sorted on module size (given in longwords), largest modules first. 

1 TS12 


RS is (DST_TO_RST FACTORS -DATETRCNI)/(1O*SUPVAL); 
STPTR RSTSL MODRSTSIZ) = RSTSIZE* VAL; 
NCR I FROM O TO MIN “RODS. IN_RST 7 “b0 


IF -ASTSIZE GTR .MOD_SIZE_TBLC.1] 


ee ee ee ne 


PEN OO OONO VE WO DONO US WT 


FROM MIN _MODS_IN ast = 270.1 at 


& 

& 

4 
BEGIN 
DECR J 

nop. SIZE_TBCC.U+T »MOD_SIZE_TBL 

4 

| 

& 

4 

& 

& 

s 

: 


Ot uh us et 


NOV EWN OO OBNOUE WO 


MOD_SIZE_TBLC.1] = .RSTSIZE; 
EXITLOOP; 


END; 
! Now loop through the PSECT entries for this module to build the 
Program Static Address Table (SAT) entries for this module. 
NPSECTS = paeprRrsiee: 
DMTPTR = 3 
INCR | FROM 1 TO .NPSECTS DO 
BEGIN 
J sSRtPTAL TS GTR 0 
STATIC_ADDRESS( .DMTPTR(O) 
DMTPTR = DMTPTR(2); 
END; 


SSSSSSSSSSSSSSSSSSSSSSSSSSS 


Mew 


joMrPTRct} 
.ASTPTR, SATSSTART_ADDR, FALSE); 


o 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


END; ! End of loop over the DMT 


! We have now read through the entire Debug Module Table and built the 
i correspanding RST Module Chain. Return the estimated RST size (in Long- 
e@ MIN_MODS_IN_RST Largest modules. 
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Peete 


i words) for t 


n 5 
RSTCNTRL 16-Sep-1984 02:53:41 AX-11 Bliss-32 V4.0-742 Page 188 
yous000 1ersee13Be 9S:33:5, ENE Sh sec Fe er 5s ge 4% 
3 5945 6 ' 
: 3328 TACR  FROM'O TO MIN.MODS.IN.RST = 1D 
: 348 é RSTSIZE = .RSTSIZE + “hOB S126. TLL «12: 
; fi 6 § EST_RST_SIZECO] = .RSTSIZE; 
: 59 6055 
3 ? § ° 2$ } Finally return successfully to the cailer. 
; rs RETURN TRUE; 
‘Be 
3 328 6060 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
54 4D 44 03 00179 P.AAV: ASCII <3>\DMT\ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
O7FC 00000 READ_DEBUG_MODULE_TABLE: 
«WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RIO ; 5820 
5A 00000000° EF 9E 00002 MOVAB PREV_RST PTR, R10 : | 
59 00000000" cr 3 00009 MOV DSTSBEGIN_ADOR, R9 : | 
5€ 8 C 9019 SUBL2 #40, SP : 
0c BC D4 0001 CLRL. @€Sf_RST_SIZE : 5919 
50 08 AC DO 00016 MOVL ING BST_BLOCK, RO : 5920) 
OC AO 05 OOOIA TSTL gcRO) ; 
03 13 0001D BEQL «Ss F 
10 a0 : 1F TSTL  16(RO) > 5921. 
8 2 18: BNEQ % 3 
0120 3 0 4 BRW 1$ : | 
53 10 AO 00 7 28: MOVL (RO), DMT_SIZE : 59 4 
30 AE \ F OA MOVZBL # 09 EXE SECBOUNDS : 5933 | 
4 AE 400000 F 09 MOVL  #1078741824, EXE SECBOUNDS*+4 : 5934) 
18 AE 3 MOVL #3, EXE_SECNAM DESC : 5935 
1C AE 00000000" BFE 9 C MOVAB P.AAV, EXE_SECRAM_DESC+4 : 59 
C 00044 CLRQ = = SP) : 59 
0c AO DD 46 PUSHL  12(RO) : 594 
50 OFF ¢ 5 4 v 511(R3), RO : 5939 
7E 00000200 8F C 4 DIVLS #512, RO, =-<(SP) : 
4 AC OD PUSHL IMGFILCHAN ; 5938 
7E 7C CLRQ.  =(SP) : $937. 
34 AE OF B PUSH EXE E SNAM_DESC ; 
00020000 af DD Hi PUSHL #13T ; 
E D4 CLRL. s- = (SP) ; 
48 AE OF 66 PUSHAB EXE_SECBOUNDS ; 
4C AE OOF PUSHAB EXE ~SECB DS : 
000000006 F 6 CALLS #127 SYSSCRMPSC ; 
E BLBS stAtus. ; $96) 
50 03 0 F 7 INSY #3, #0. #3, STATUS : 5944. 
bb 78 PUSHL stAtus > 5945 
¢ 70 $ 3 


r- 


$ep-1984 02:53:41 AXo11 Otis $-32 V4.0-742 Pa 89 R 
ta 95:33 :5) DEBUG. SRC RSTCNTRL.B32;2 oe V 
50 20 AF 00 7 MOVL EXE SECBOUNDS, DMT_START_ADDR : 5949 : 

51 D CLAL : 5955) ; 

6€41 D 4$: CURL D S12 Veuc3 : 5956) ; 

‘9 51 05 F OBLEQ : ; 
A 28 «Ad OD MOVE Rts tant -ADOR, PREV_RST_PTR : 5958 ; 

D MOVE DAT _START-ADDR, DMTPTR : 5964. ; 

57 ¢ 9 ADDL3 Tesize “OMT TETART ADDR, R7 + 5965 | : 
1 00097 5$: CMPL paTPTR, , a? : | ; 

F O009A BLSSu 7$ F : 

OOA 1 9C 6$: BRw 19$ 3 | $ 

56 69 C1 O009F 7$: ADDL3 (DMTPTR), DSTSBEGIN_ADDR, DSTPTR : 5975 3 
69 6 BI 000AS CML DSTPTR, bSTSBEGIN_ADDR : 5976 3 

046 ad 6 p1 iB CMPL  DSTPTR, DSTSEND_ADDR : 5983) ; 

17 «1F 0 AC BLSSU $ : ; 

£7 0 900990006 0 €8 Ae BLBS § DBGSGV_CONTROL, 6$ ; 5986 | ; 

F DD 00085 8$: PUSHL  #16561T : 598 | : 

000000006 00 1 Fe 008 $: CALLS #1, LIBSSIGNAL F : 
008F 31 000C BRW 21$ + 5988 | : 

C OD oC 108 PUSHL #12 : 5997 : 

FC93 cf 1 F C CALLS #1, GET_MEM : 3 

0 pO 000CC MOVL RO, RSTPTR : | : 

oc A 6 00 O00CF MOVL  DSTPTR, 12(RSTPTR) : 5998 : 

14 =A oi 9 903 MOVE #1, 20(RSTPTR) : 5999) ; 

29 «OA A 90 0000 MOVe «#10, 41 (RSTPTR) : 6000, : 

50 A 00 00008 MOVL  PREV_RST_ PTR, RO > 6001 | : 

10 Ad ; DO 0000 MOVL  RSTPTR, T6(RO) F F 

6A DO O00E MOVL RSIPTR PREV_RST_PTR + 6002 | ; 

50 06 A 19 C5 O00E MULLS 5, 4 BTR) RO + 6011 | F 
5 5 ’ OOEA DIVL3 #40. RO SIZE : ; 
20 A’ 55 8 OE ASHL = #2, aeTéise. (RSTPTR) : 601 ; 
D4 OOOF CLRLdI + 601 : 

6E41 g D1 OOF5 11$:  CMPL RSTSIZE, MOD_SIZE_TBLCI) : 601 ; 

18 15 000F9 BLEG 43s «148 ; ; 

50 04 D0 FB MOVL #4, J : 6018 | 3 

11 000F BRB 13§ ; ; 

04 AE4O s 09 12$: OVE WOD_SIZE_TBLCJI, MOD_SIZE_TBL+4(J) + 6019 | ; 

° | e 

51 D1 00108 13 CMPL yr 1 ; | : 

-3 1 91 BGEG «188 : : 

6E41 D0 001 MOVL  RSTSIZE, MOD_SIZE_TBLCIJ > 6021 | ; 

4 11 00111 BRB 15$ : 6017 | : 

DE 1 3 F 113 14$: AOBLEQ #5, I, 118 : 6013 | : 
8 08 A2 00 00117 15$:  MovL B(OMTP TR) NPSECTS ; 6031 | : 

ME Ae SSE Re fies mrrtn BH) |: 

17 31 001 Bre” : | : 

04 A2 03 102 16$ TSTL 4(DMTPTR) ; 6035 | : 

OF 15 001 BLEG }~=és«éa178 ; ; 

7 p4 1 CLRL = = (SP) + 6037 | : 

30 Aad 9F 00109 PUSHAB SATSSTART _ADDR ; : 

5 bb 10¢ PUSHL RSTPT > 60 iF : 

4 D 001 f mova ( MTPT (SP) ; 6037 : 

0000v CF FB 001 CALL wth ADDRESS : : 

2 CO 00136 178: ADDL DMT : 6039 ; 

ES 4 F3 00139 188: AOBLEQ eit CIS, 1, 168 > 6033 | F 
FF57 31 001 BRW : 5965. : 


sss 


re 59 


; Routine Size: 343 bytes, 


Hioseoctane 0g:88:4)  yanety guises 


2 V4.0-742 
CNTRL.832;2 
5 D4 00140 198:  CLAL  ASTSIZE 
D4 0014 CLRL 
6640 CO 00144 208: ADDL mOD_SIZE TBLCIJ, RSTSIZE 
i 148 AOBLEQ #5,°1, 208 
dd 0014 MOVL Rstsize, @EST_RST_SIZE 
1 yi 1 MOVL wi, R 
1 RET 
50 p4 0154 21$:  CLRL RO 
4 00156 RET 


Routine Base: DBGSCODE + 2844 


RSTCNTRL 1B-sep-1 3§ AX-11 Bliss-32 V4.0-742 Pa 91. 
¥Ou5000 ~350-138e 3:38:36  Eokeuc. SacdastenYRi -B53-2 9° (32) 
H 328 e 1 } ROUTINE RST_BUILD_ERROR_HANDLER(SIGARG, MECHARG, ENBLARG) = 

; 5961 4 1 ! FUNCTION 

3 306 6 i! This routing is the error handler for DBGSRST_BUILD. The only ~— 
; 596 . 3a conditions it checks for are DBGS_NOFREE, i.e. running out of m emory 
; 5964 6 1! while building the RST for some module, and Rapala ep i.e mthe user 
; 5965 3 1 / entered Control-Y¥ DEBUG to abort the current command. When either of 
: +e 6068 1! these conditions occurs. this handler colis S DBGSRST Remove to release 
; 596 606 1! LL the RST space which was allocated during the attempt to build the 
; +e 2 4 : : module's ast It then resignals the error. 

3 370 6 1 ! INPUTS 

5 ae ? 7 : SIGARG = The address of the signal argument vector. 

3 a7 oor? } } MECHARG = The address of the mechanism argument vector. 

; 5975 eth 1! ENBLARG - The address of the enable argument vector. 

; 376 6078 1! 

; 597 6079 1 ! OUTPUTS 

g 6080 1! The error is always resignalled, meaning that SS$_RESIGNAL is returned 
3; 597 6081 1! as the routine value. 

; 6082 1! 

; 5981 60835 1 

3; 598 6084 BEGIN 

3 ss 

; 5985 608 SIGARG: REF VECTORC,LONG); ! The signal argument vector 

3 4] 6088 

3; 598 6089 LOCAL 

3; 5988 6090 RSTPTR: REF RSTSENTRY; ! Pointer to the Module RST Entry 
i 

; 2994 609 ! If we ran out of memory or were aborted by Control-Y DEBUG, remove the 
; 599 6094 ! partially built module from the RST. Also, mark the module as being 

3 64 6095 cancelled. Then resignal the error. 

3; 5995 $097 if (.SIGARGC1) EQL DBGS_NOFREE) OR (.SIGARGC1] EQL DBGS$_ABORTED) 

a ge 

; 599 6 oesin. 

; 5998 6100 RSTPT -MOD_BEING Bult}; 

3; 5999 oi RSTPTRCRST SV MODSET] = FALSE; 

; 6000 61 ‘ DBG SRST REMOVE (MOD “BEING BUILT); 

: 6001 oi2 

: $008 6105 RETURN at Season 

3 6004 61 

; 6005 61 END; 


0004 00000 RST SUIS ERROR. py 


R R2 3; 6061 
3 00000000" EF 43 MOVAB me apes BUILT, R2 3 
4 ~" ) MOVL $1Gh RO ; 6097 
00028332 F 4 Aad D CMPL {gone * #164658 3 


—_— 


; Routine Size: 


6 
stooge OB:85:4) yayett OL tn482 v4-02742, 
O0O280E8 &F 4 5 ° CMP sfn0), #164072 
ot ee oh ae ht ca eal 
A 
f 


F79E Ff of pe CALLS DBGSRST RE UREMOVE 
4 0918 BF 3¢ 00 ZW pig 


53 bytes, Routine Base: DBGSCODE + 2(9B 


F 6 
18235571986 98:48:36 EOEauG. Src 
ROUTINE SHARED_ IMAGE _NAMES(IMGFILCHAN): NOVALUE = 
FUNCTION 
eeeee This routine is used for VMS 4.0 (38) shareable image format ***« 


This rout ine goes through the List of image names in the current 
Suecyt on and creates a Global syne for each such image name. 

The mages in the current execution include the user program, all 
sharable images used by the user program, and even DEBUG itself. 

For each mene pene xxx, this routine creates an RST entry for 

the s L SHARESxxx, marks that RST entry as being a global symbol, 
and a caches it to the global symbol chain off the anonymous module. 
This ntended 7 be an aid to programmers debugging shared im- 
ages since it provid 


33 
_ 
o 

3: 

~ 4 
@D 

r 

<2z 


a a 9 2 
2 bs A st 


33333333 


es a way of telling where a shared image starts. 
The sharable image names one their addresses are gotten from the 
s 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
4 Sharable Image Descriptor List Elements in the Image Descriptor Blocks 
: in Meter The external symbol IACSGL_IMAGE_LIST is used to access 
: wt doubly linked List of Image Descriptor Blocks; it points to a 
g longword vector in which the Ist longword points to the first 
; Descriptor Block on the List. Note = for FT2, a oyadot called 
: SYSSGL_IMGLSTPTR was put in STARLET which we use instead of 

: IACSGL_IMAGE_LIST. 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


The Image Descriptor Blocks do not contain Supt tcote entries for 
the same ehereete hae | 9 This code assumes this is true, and no check 
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is done to validate 
This routine also creates Module RST entry for each shareable 
: image. 

9 40 INPUTS 

° re IMGFILCHAN = The channel that the image file is open on. 

§ rk OUTPUTS 

Gs NONE 

$ tg 

§ of BEGIN 

8 rt LOCAL 

9 50 DSTPTR: REF DSTSRECORD, ' Pointer to Module DST pointer 
$030 1 GBLNAME: VECT ! Buffer in which we build the global 

51 § msaee IMDBSC_MAXNAMLNG*+7 ,BYTE),! symbol name ‘‘SHARESxxx'’ 

3g 4 IMDBPTR: REF BLOCKL,BYTE, ! Pointer to jnoge Descriptor Block 

rs 5 LENGTH : Length of the Rodule DS ais es 

5 4 NAMEPTR: REF VECTORC BYTE), i Pointer to shared mage name "xxx 
rts] 58 RSTPTR: REF RSTSENTRY; ! Pointer to duplicate RST entry 

5 
$085 60 ! Enable a handler that will catch any errors that might occur 
6060 61 : dur ing this routine. This is porniy done as : defensive move 
6061 $¢ ! im case the symbols IACSGL_IMAGE_LIST or SYSSGL_IMGLSTPTR 
epee 6 ' are incorrect or the dete struc teres they point to are incorrect 
606 64 ! (e.g., aS a result of image activator changes). In that case, 


RSTCNTRL 18-se =| AX-11 Bliss-32 V4.0-742 P R 
VOa000 ~3Sb-138s 98:78:3. — Eoteuc. BhcSastenYnc wsoe2 se 13} v 
H 165 : gnal an informational to the effect that the SHARESxxx names $ 
3 1 i ‘fot available, but we do not want to peert the debugging session : 
; fe (uhich is what would happen without a handler). 3 
; 1 ENABLE ; 
; SHARED_IMAGE_NAMES_HANDLER; ; 
: 607 17 ; 
; % 17 ! Get the stort address of the Image Descriptor Block List. Then loop : 
3; 607 ei? i through 8 $s Rh r+ oae Linked tat of descriptor Blocks until we get to the ; 
3; 6074 175 i head of the for each Descriptor Block, make global symbols for 3 
: 7 oi78 any image Sirist n the block. : 
i 607 ef If SYSSGL_IMGLSTPTR NEO 0 | 3 
; $079 1 NIMDBPTR = .SYSSGL_INGLSTPTR | ; 
; 0 @} 1 BLSE IF IACSGL. IMAGE_CIST NEQ 0 : 
3 61 g euse™Or"® = IACSGL_IMAGE_LIST | 
; 6185 ! The handler will catch it. | 
3 6085 6) HEADER = “imobpre | ; 
; 6) IMDBPT moBP TRE CIMDBSL_FLINK); | ; 
H 61 WHILE R MDBPTR NEQ .HEADER 00 : 
: 6088 61 BEGIN | ; 
; 6191 : 
; 6091 619 ! For each sharable image, create the corresponding global sym- : 
3 S806 abd, : bol by prefixing the image name with "SHARES". : 
3 6094 6195 NAMEPTR = IMDBPTRCIMDBST_ IMAGE : ; 
3 6095 6196 CHSMOVE(6, UPLIT BY YTE(ZASCII SHARES -P GOLNAMECT); 3 
H one 619 CHSMOVE ( .NAMEPTR(O) eat GBLNAME v3 : 
: 609 6198 GBLNAMELO] = .NAMEPERL ; 
; 6099 6 | F 
3; 61 6201 ' Create a Global symbol RST entry for the new symbol. 3 
: 3} 1 : ; : Ignore the main user exe. | : 
; 6! : 6 , if jj MDBPTREIMDBSW_CHAN] NEQ . IMGFILCHAN ; 
; 6105 6206 & BEGIN : 
; 61 4 : 
3 e é : ? : Enter this symbol into Global symbol chain. : 
; 6110 9 ¢ BBGSGST_TO_RST(.RSTSSTART ADDR, GBLNAMECO) ; 
; $113 é 19 4 . IMDBPTREIMDBSL_STARTING_ ADDRESS], FALSE); ; 
3 611 14 4 : 
3; 61146 16 4 ! 1 byte of DST Lt “ 1 byte of DST kind, 1 bxte of $ 
3 6115 I 4 i MODBEG_UNUSED, i byte s of MODBEG_LANGUAGE, and a ; 
r eit? ; ? saaaail ae ASCIC tome : 
: He i$ 4 LENGTH =1¢1¢1+4 6 4 1 4 .GBLNAME(O); ; 
3; 611 $y & $ 
; 6120 1 4 : 


$3 
8 


§ ; teem Module RST Entry in the module RST chain for this shareable 
4 
5 store = = oe _MEMC(RS $k SHARED DENT 12 + ENGTH + 3) / SUPVAL); 
5 § miesdiee IMDBPTR L stant ING shOness3: 
$ ReTPTR Ret an) = =|noePih IMBBSwW_C 
3 RSTPTRERSTS$SV tT RAGE? 
6 : ' Create a dummy Module Begin DST record for the shareable image 
1 g one . ° . 
DSTPTR = .RSTPTR + UPVAL * RSTSK SHARED _MODENTS1Z; 3 
6235 DSTPTRCDST$B_LEN cine, ENGTH AE 
5 6 DSTPTR(DSTSB_ one nBe 
DSTPTR DSTSL MODBEG LA ScUAG = <b sk UNKNOWN; 
NAMEPTR = DSTPTRLDST RODBEG 
er rere) = 5 SRL RARE 
4 CHSMOVE (. NAMEPTRLO) eet, 6 neouguitin 
4 RSTPTRERSTSL_DSTPTAI = sDSTBTR: 
6 RSTPTR RSTS$B_KIND) = asi MODULE; 
4 RSTPTRLRSTS$B_ LANG GUAGE = DBCsK _ UNKNOWN; 
64 DBGSHASH_INSERT(.RSTPTR); 


" : Build the Program Static Address entry for this module. 


TH 
_IMDBPTRCIMDBSL END ADDRESS] = . IMDBPTRCIMDBSL STARTING ADDRESS] + 1; 
STATIC ~ADDRESS( RSTPTRCRSTSL BASEVAI, LENGTH, .RSTPTR 

ATSSTART_ADDR, FALSE 
: Update the next module chain pointer. 


bREV -RST_PTRCRSTSL om = .RSTPTR; 
ENDS VIRST“PTR = .RSTPT 


PPP SISTINE 
OONOUSWN—O 


: Link to the next Image Descriptor Block and loop. 
impepTR = .IMDBPTRCIMDBSL_FLINK); 


: We have mow gone through all Descriptor Blocks. Return to the caller. 
RETURN; 
END; 
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-PSECT DBGSPLIT.NOWRT, SHR, PIC.0 


24 45 52 41 48 53 OO017D P.AAW: .ASCII \SHARES\ : 


ieee Q:fH:9)  USUE SAgecFE thc 5882 Pane 33) 


<D 


6 
RsTCNTRL 1b-sep-1964 02:88:4)  YAKeNT BLige-42 vi 0-742, Page 196 


aa 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 rename ak gia 


wo Save R2,R3,Rs,R5,R6,R7,RB.RI,R10,R11 : 6108 ; 
gare, fe ge gees auth fBBeas). & ew) | 
3 000000066 ; HOVAB YSSGL_IMGLSTPTR, RO > 6178) ; 
57 000000006 00 p 13 ROVL YSSGL_IMGLSTPTR, IMDBPTR : 6180 | ; 
50 000000006 6 % i 1$: MOVAB ACSGL_IMAGE_LIST, RO + 6181) : 
57 000000006 Q 1 MOVAB JACSGL_IMAGE_LIST, IMDBPTR + 6183 : 
be 2s ere, TSP? : 6185 : 
000000006 00 oi F CALLS #1, LIBSSIGNAL ; ; 
: 7 0 3$: MOVL §IMOBPTR, HEADER : 6186 : 
7 D C 4$: MOVL C(IMDBPTR), IMDBPTR + 618 : 
B 7 D1 F CMPL JDBPTR. HEADER > 6188 : 
1 12 é BNEG 4 ; : 
58 146 «A? oe 5 S$: MOV 20(R7), NAMEPTR + 6195 : 
01 AE 00000000" EF 06 2 9 MOVCS #6, P.AAW, GBLNAME+1 : 6196 | : 
: A é MOVZBL (NAMEPTR) : 6197. : 
07 «AE 01 A 8 MOVCS RO, 1(NAMEPTR), GBLNAME+7 : : 
6 06 1 38 ADDB a6, (NAMEPTR), GBLNAME > 6198 
04 ac OE A FD F CMPZ2V #0. #16, 14(IMDBPTR), IMGFILCHAN + 6204 
D4 BEQL = 4$ : 
5 D4 CLRL 30 = (SP) : 6211 
468 A? DD PUSHL 72(IMDBPTR) > 6212 | 
8 AE F PUSHAB GBLNAM 3: 6211) 
00000000' FF DD PUSHL RSTS$START_ADDR ; 
4 #4, DBGS$GST_TO_RST : 
GBLNANE LENGTA ; 6219 | 
r} LENGTH : 
3(R10), RO : 6225 
#4, RO 3 
14(R0) ; 
#1, GET_MEM : 
RO, RSTPTR ; 
72(IMDBPTR), 48(RSTPTR) : 6 $ 
14(IMDBPTR). S2(RSTPTR) : 6207 | 
#16, 40(RSTPTR) 3 6208 | 
56(R6) - DSTPTR ; 6 
#1, LENGTH, (DSTPTR) > 6235 
$8, 1(DSfPTR) > 6236 | 
#10, 3(DSTPTR) : 6237 | 
7(R9), NAMEPTR : 6 
GBLNARE (NAMEPTR) > 6239 | 
(NAMEPTR) RO + 6240 | 
RO GBLNAAE + 1(NAMEPTR) : 
ostPrR le RSTPTR) + 6241 | 
#1, 20(RSTPTR) : 6 Ae | 
#16, 41(RSTPTR) ; 6243 | 


sss 


3; Routine Size: 


50 


281 bytes, 


D997 —s«CF of P 
4c A? a8 A 
5A 0 40 
00000000' 4 
a 
o000v 08 


wommnm 


on” Serseueeszess 
sooosf con 


oruen 


7 04 
0000v CF 


Routine Base: 


“Sep-1 :$3:41 Ax-11 40-742 
->ep- 316: L. 
et ee ce 
00C C Pus  M 
0¢ CALL PDBGSHASH_ INSERT 
1000 SUBL lap GCIMDBPTR), RO 
0008 ROVAB 
DOODF CLAL 
00¢ PUSHL = RSTP 
4434 PUSHL b 1H 
00¢ PUSH RSTPT 
DO0E CALLS #3, STATIC ADDRESS 
DO0F MOVL © PREV_RST PTR. R 
DOOF A MOVL TPTR, 16(RO) 
DO0F MOVE —-RSTPTR, PREV_RST_PTR 
001 BRy 4 
001 RET 
001 6$: «WORD Save nothing 
01 LRL = (SP) 
01 PUSHL 
01 0F MOVO. 4 (AP), =(SP) 
90113 CALLS #3, SHARED_ IMAGE NAMES HANDLER 


DBGSCODE + 2C00 


ea 
3 
2 


S 
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ROUTINE SHARED IMAGE _NAMES_HANDLER(SIGNAL_ARG_PTR: REF BLOCKC,BYTE)) 


OUTPUT 


FUNCTION 


This routine is the error handler for the SHARED_IMAGE_NAMES 
routine. 


An error handler is yeed as a gefonstye move 

in case the symbol IACSGL_IMAGE_LIST is incorrect or the data 
gtructures it points to are incorrect (e.g., as a result of 
mage activator changes). In that case, we want to signal an 
informational to the effect that the SHARESxxx names were not 
available, but we do not want to abort the debugging session 
(which is what would happen without a handler). 


INPUTS 


SIGNAL_ARG_PTR points to the signal arguments for the exception. 
S 
This routine unwinds the stack to the caller of SHARED_IMAGE_NAMES 
and then returns SS$_CONTINUE. 
BEGIN 

If we get into this handler for the second time (because of 

the unwind), then resignal. 
F958 1 MAL ARG _PTRCCHFSL_S16_HARE) EQL SS$_UNWIND 

RETURN SS$_RESIGNAL; 

Put out an informational saying that the shared image names 

are not available. We fake the message since the final 

handler is not set up properly to accept a signal here. 

Only do this for V4. 
fj OCSOY _SENTREL CSD ESY CONTRGL VERSIONS. 


ee ee 


BEGIN 
DBGSPRINT(UPLIT BYTE (ZASCIC 

*ZDEBUG-I-ERRSHRNAM, internal error during initialization, SHARES symbols not available')); 
SOS. CP 


Unwind the stack to the caller of SHARED_IMAGE_NAMES and then 
return SS$_CONTINUE. What this does is abort processing of 
SHARED. RAGE NAMES and allow the rest of DEBUG initialization 
© proceed. 


MDW. o-oo eee 
mn 


TUNWIND(); 
ETURN $S$_CONTINUE; 
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3; Routine Size: 


63 bytes, 


Routine Base: 


a — - —=_ _ 


DBGSCODE + 2DE9 


& 
Ib-se “1 53:61 AX-11 Bliss-32 V4.0-742 P 99° 
eases 188s 98:75:53 | HONedS Chi ses Pewter esoc2 age 12) 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
4 49 2D 47 462 65 46 25 183 P.AAX: .A \3 “[-ERRSHRNAM, i ; 
$3 3 r i : j oD i i 8 15 SCII DEBUG-I-ERRS nternal error duri\ 
C 6 4 9 1 A \ng initialization, SHAR : 
2 cs 1 ai ce $ : ‘ e: i 18, SCII \ng initialization, SHARES symbols not av\ 
65 6C $5 6C 85 ef 188 eASCII \ailable\ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
0000 00000 SHARED_IMAGE_NAMES_HANDLER: 
. KD se MEE re, 0 : 
00000920 Ht 7 AO oF ii CMPL £RO) cao 436 y F 
06 2 000 BNEO 3=s:«1$ : 
50 0918 =F 3 MOVZUL #2328, RO ; 6303 
14 000000006 00 04 gt 16 1%: C #¢, DBGSGV_CONTROL+1, 2$ : 6311 
00000000" EF 9F OIF PUSHAB P. + 6314 
900000006 1 §B CALLS #1, DBGSPRINT : 
000006 FB O¢8 CALLS #0. DBGSNEWLINE : 6316 
—€ 7¢ 0 2 CLRO. 20 = §P) : 632 
000000006 90 02 rs CALLS #2, SYSSUNWIND F 
0 dO 000 MOVL #1. RO : 6326 
04 000 RET + 6327 


nm 6 | 
e=35p-1980 93:48:38 EdeeuG. SacSastentmc 85332 Page $85 
ROUTINE SHARED_IMAGE _NAMES_V3(IMGFILCHAN): NOVALUE = 
! FUNCTION 
eeeee This routine is used for VMS 3.0 shareable image format ***** 


5; 


wn 


execution and creates a Global syabe} for each such image name. 
The images in the current execution in 


the symbol SHARESxxx, marks that RST entry a being a global symbol, 
cashes it to the global symbol chain off the gnonysous module. 
s intended to be an aid to programmers debugg n 

ages since it provides a way of telling where a share 


The sharable image names and their addresses are gotten from the 
Sharable Image List Elements in the isage Activator Fixup Blocks 
in Pl space. The external syanet SYSSGL_IAFLINK is used to access 
the Linked List of Image Activator Fixup Blocks; it points to a 
pointer to the first Fixup Block on the List. 


rae 


image starts. 


es 


WN OO DONAUNES WN —OOONAOUES WINS 


The Image Activator Fixup Blocks may contain duplicate entries for | 
the same sharable image. This happens when two sharable images in 
the execution reference a third image, for example--in this case 

there are two entries for that thir {mage. This code assumes 

that only the first such — s valid and ignores all succeeding 

duplicates. If the image activator is ever changed to invalidate 

this assumption, this routine could break. 


This routine also creates Module RST entry for each shareable 


SSIS IHN VSSS USGS oS Se ee ho oe ab Ape ee 


SHLPTR: REF BLOCKVECTORE Pointer to Sharable Image List vector 


» SHLSK_LENGTH BYTE); 


image. 
INPUTS 
IMGFILCHAN = The channel that the image file is open on. 
| 
OUTPUTS 
NONE 
BEGIN 
LOCAL 
CHANNEL NUMBER, ! The chennel number that the image 
: file is open on 
DSTPTR: REF PSTeRECORD. ! Pointer to Module dst inter 
GBLNAME: VECTOR ! Buffer in which we build the global 
SHL$C_MAXNAMLNG+7,BYTE],! symbol name ‘‘SHARESxxx"’ 
IAFPTR: REF BCOCKC,BYTE), ' Pointer to [nage Activator Fixup Block 
H ' Length of the qule DST a 
PTR: REF VECTOR BYTE, i Pointer to shared image name ‘xxx’ 
RSTPTR: REF RSTSENTRY Pointer to duplicate RST entr 
i 


wn 
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w 
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mo 


OAR ERR EEE PEERS EEE EEE EE EEE & EMM UIUIIIUIUIROROPURoRonononononononononununononunung 


RENO OOO UNE 0 OO NOUNS WO 


FSSSSSISSI ISS SAAS SASS SAS SSIS ISIS 


rSSS33995 


es 
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ot > 1984 AX-11 Bliss-32 V4.0-742 
1B-Se0-1984 93: 18: 3 DEBUG.SR RCIRS ASTENYR L.632;2 
Enable a handler that will cated 4 errors that might occur 

quring ng this routine. This i i done as a defensive move 

n case the symbol JACSGL IMAG LIST is incorrect or the data 

gtructures it points to are incSerect (e.g., as a result of 

mage activator changes). In that case, we want to signal an 

informational to the effect ches the SHARESxxx names were not 

available, but we do not want to abort the debugging session 

(which is what would happen without a handler). 


NABLE 
SHARED _IMAGE_NAMES_HANDLER; 


! Get the start ireerst of eee jnage Activator Fixup Block List. Then loop 
j Foreugn this Linked list of Fixup Blocks until we get to the end of the 
ay oo oe oe each Fixup Block, make global symbols for any image entries 


{AFPTR = .SYS$GL_IAFLINKCO); 
WHILE gIAFPTR We NEG 0 DO 


BEGIN 
SHLPTR = .JAFPTR + .JAFPTRCIAFSL_SHLSTOFF); 


Loop through the vector of Sharable Image List Elements in this Fixup 
Block. For each sharable image, create the corresponding global sym- 
bol by prefixing the image name with ‘SHARES’. 


neg Fe 0 TO .JAFPTRCIAFSL_SHRIMGCNT) = 1 DO 


: Create the new symbol name by prefixing SHARES to the image name. 


WAMEPTR = SHLPTRE.1, SHLS$T_IMGNAM) 
CHSMOVE (6, UPLIT BYTE (ZASCTI SHARES) NAMEC13) 
CHSMOVE PTRCO] MAREBTRCI GBLNAMEL7)); 

GBLNAME L ton? “, .NAMEP ERE 


! Get the channel number, now the channel number is carried in 
th fast byte of the shared image NAME. This may change 
e future. 


CHANNEL _NUMBER = .NAMEPTRC30); 


: Sotoraine whether we already nore ®, wy Mr h RST entry for 
! the SHARESxxx symbol, If s Licate Fixup Block 

: ow B and we ignore it. ‘otherwise, XS a Global symbol RST 
entry for the new sya 


DBGSHASH FIND _SETUP(GBLNARE); 
WHILE TROE D 


BEG1s 
RSTPTR = DBGSHASH_F IND(GBLNAME) ; 
IF .RSTPTR EQL 


Page 3) 


ae eee a Re 


NTRL $ep-1984 02:53:41 AX-11 Bliss-32 v4.0-742 Pa 2 
yo4s000 ety 7 95:93:54 DEBUG. SRCIRSTCNTRE .B32:2 ge 90¢ 
; 6343 bbhg 5 THEN 
3 6544 644 2 BEGIN 
3 6345 6444 IF .CHANNEL_NUMBER NEQ .IMGFILCHAN 
3; 6 § 6445 8 THEN 
; 6 b446 BEGIN 
3; 6 : 6447 7 
3; 6 rr | 7 
3 ° 3 ote Enter this symbol into Global symbol chain. 

; 6 § o 4 DBGSGST_TO_RST(.RSTSSTART_ADDR, GBLNAMECO], .SHLPTRE.1,SHLS$L_BASEVA], FALSE); 
: 6 $6 64 

$ ° 5 oe ¢ Create module rst entry in the module rst chain. 
: 6 38 64 $ 7 RSTPTR = GET_MEM(RSTSK_SHARED_MODENTSIZ); 

; 6358 64 7? RSTPTRCRSTSL_BASEVA) = ,SHLPTRC.1, SHLS$L_BASEVA); 
3 6359 6458 7 RSTPTRURSTSB_IMGFILCHAN) = .CHANNEL_NUMBER; 

: 6 6459 7 RSTPTRCRSTSV_SHARE_IMAGE) = 1; 

fe Be 

3; 6 § 6462 7 ! 4 ozte of DST tgngth. 1 byte of DST kind, 1 byte of 
; 6 6463 7 i MODBEG_UNUSED, 4 bytes of MODBEG_LANGUAGE, and 
; ? 5 ree) 4 counted ASCIC string. 

3; 6 0608 7 LENGTH = 141414 4 4 1 4 .GBLNAME(O); 

+ 6368 6467 7 DSTPTR = DBGSGET_MEMORY((.LENGTH + 3) / 4); 

3 6369 6468 7 DSTPTRCOSTS$SB_LENGTH] = .LENGTH = 1; 

3 6370 6469 7 DSTPTRCDST$B_TYPE) = DSTSK MODBEG: 

3 6371 6470 7 DSTPTREDSTSL MODBEG ANGUAGE) = DBGSK_UNKNOWN; 

: 6 i 6471 7 NAMEPTR = DS DST$B_MODBEG_NAME); 

3 637 6478 7 NAMEPTR[O) = 5 GBLNARE 6); 

: 6374 6473 7 CHSMOVE(.NAMEPTRLOJ, GBLNAMEL1), NAMEPTR(1)); 

3 6375 6474 7 RSTPTRERSTSL_DSTPIRI = .DSTPTR; 

: 6 26 6475 7 RSTPTRCRSTSB_KIND) = RSTSK MODULE; 

3 637 6476 7 RSTPTRCRSTS$SB_LANGUAGE) = DBGS$K_UNKNOWN; 

; 6378 6477 7 DBGSHASH_INSERT(.RSTPTR); 

fe BR 

3 ° ; rots} 4 Builé the Program Static Address entry for this 
° - module. 

3: 6 ets 7 ‘ 

3 6 64 5 7 STATIC_ADDRESS( .RSTPTRCRSTSL_BASEVAJ, 1, .RSTPTR, 
; 6 5 th SATSSTART_ADDR, FALSE); 

: 6 6486 7 

; ° °° $ 4 } Update the next module chain pointer. 

: 6 rat] 7 PREV_RST_PTRCRSTSL_NXTMODPTR)] = .RSTPTR; 

3 6 6630 PREV_RST PTR = .RSTPTR; 

: 6 9 : 

3 6 ots EXITLOOP; 

3; 6 6494 END; 

3; 6 6495 

3: 6 6496 IF .RSTPTRCRST$V_GLOBAL] THEN EXITLOOP; 

3; 6 6497 & END; 

3 6 6498 4 


7 
RSTCNTRL 1b-s¢ -1 :53:41 AX-11 Bliss-32 V4.0-742 Pa 3 
yous000 1e-gee7 1882 98:78:56 HONedG. BA SRstentnc assee ae 433 
3; 646 6499 END; 
: 820) é 
; oe 7 2 § Link to the next Image Activator Fixup Block and loop. 
; e208 6 iAFPTR = .JAFPTRCIAFSL_IAFLINKI; 
3 o's] 6505 END; 
: rod g 
: #4 ? og } We have now gone through all Fixup Blocks. Return to the caller. 
5 6611 6 19 RETURN; 
; 6418 651 
3 641 6512 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC.O 
24 45 52 41 48 53 OO1DA P.AAY: ASCII \SHARES\ : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 SHARED_IMAGE_NAMES_V3: 
-WORB Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 6328. 
SE 3c 2 UBL2 #60, SP ; | 
6D 0128 «(CF DE MOVAL 118. (F + 6368. 
m 30 000000006 09 p MOVIL syvs$ot LAFLINK, RO > 6403 | 
61 if BNEG Nie 6404 
50 08 AE 18 C1 ADDL3 #24, IAFPTR, RO > 6406 | 
59 08 AE 60 C1 ADDL3 (ROS, IAFPTR, SHLPTR : 
56 01 F MNEGL #i, | : 6419. 
O0FS ; BRW AS 3 | 
58 6 06 78 ASHL 86 #6 } R11 ; 
aA 18 AB4 4 MOVAR 24(R11)CSHLPTR], NAMEPTR : 
OD AE 00000000° ef 0 g MOVCS #6, P.AAY, GBLNAME+1 : 6420. 
0 A oA MOVZBL (NAMEPTR) R + 6421 | 
13. AE 01 AA 50 3 vcs RO, 1(NAMEPTR), GBLNAME+7 ; | 
OC AE 6A 6 ADDB a (NAMEPTR), GB > 64 2 
6E 1E AA 9A MOVZBL 3O(NAMEPTR), CHANNEL_NUMBER > 6429 | 
OC AE OF PUSHAB GBL > 6437 | 
D862. F re ‘ fe CALLS #1, DBGSHASH_FIND_SETUP pert 
D70D cf if CALLS #1, DBGSHASH_F IND : | 
2 MOVL RO. RSTPTR ; 
i BEQL > 6441 | 
sae BRW $ 3 
04 ac E ti CPL HANNEL NUMBER, IMGF ILCHAN 5 6444 
i p CLRL (SP) > 6451 
6849 9F PUSHAB (R11) CSHLPTRI : 
9— DD PUSHL a(SP)+ 


PUSHAB GBLNAME 


. 7 
16-Sep-1984 02:53:41 AX-11 Bliss-32 V4.0-742 Pa 
ae t 7 95:33:53 DEBUG. SRCIRSTENTRi 83252 ae 40 
00000000" EF DD 00074 PUSHL RSTSSTART_ADDR ; 
Desc sCF 4 FB OOO7A CALLS #4, DBGSGST_TO_RST : 
i DD 0007F PUSHL #4 + 6456 
FOFS ct FB 1 CALLS #1, GET_ME : 
a ; p MOVL RO RSTPTR : 
6849 9F PUSHAB (R11) SHLPTRI : 6457 
0 A 9 MOVL  @(SP)+, 48(RSTPTR) : 
4 A é MOVE CHANNEL NUMBER, 52(RSTPTR) + 6458 
8 iA 94 BISB2 #16, 4OTRSTPTRS 7 6459) 
0c AE 9A 00098 MOVZBL GBLNAME LENGTH + 64666. 
7 08 co 0009C ADDL2 @ LENGTH : 
0 03 A 5 9 V 3(A7), RO + 6467. 
7E  . A DIvLs #4, RO, -(SP) : 
000000906 00 1 F OA CALLS #1, DBGSGET_MEMORY : 
4 Ar 0 p A MOVL RO, DSTPTR : | 
04 ef 7 1 08 SUBS #1. LENGTH, @DSTPTR > 6468 
06 A 1 gi 0B ADDL3 #1. DSTPTR. RO + 6469 | 
6 Bc BF 0B OVE #68, (RO) : | 
50 04 AE 3 C1 000C ADDL3 #3, OSTPTR, RO : 6470 
60 A 00 9o¢ movL. #16, ; 
SA 04 AE 7 ci a ADDL3 4&7, DSTPTR, NAMEPTR + 6471. 
A Oc AE 00CD MOVE GBLNAME, (NAMEPTR) 6472 | 
0 A 9A 9901 mOVZBL (NAMEPTR), RO + 647 
01 AA oD A 0 28 00004 MOVCS RO, GBLNAME+1, 1(NAMEPTR) : | 
oC A 04 AE DO OOODA MOVL  OSfPTR, 12(RSTPTR) + 6474 | 
16 AB 1 90 O00DF MOVE #1, 20(RSTPTR) > 6475 | 
29° AB A 90 OO0ES MOVE #10, 41(RSTPTR) : 476 
8 DD 000E7 PUSHL RS ; 6477 | 
D826 CF 01 FB OO0E9 CALLS #1, DBGSHASH_INSERT ; 
E b4 OOEE CLRL se : 6483) 
00000000° EF F OOOF PUSHAB SATSSTART_ADDR : | 
8 OD O0F6 PUSHL RSTPTR ; 
01 DD O00F PUSHL #1 : | 
30 as DD OOOFA PUSHL 4B (RSTPTR) ; 
0000v cf 05 FB O00FD CALLS #5, STATIC ADDRESS ; 
0 00000000" EF » 0108 MOVL PREV_RST_PTR, R ; 6489 
1 0 DO 001 MOVL RSTPTR, T6(RO) 3 
00000000" EF DO 00100 MOVL RSTPTR. PREV_RST_PTR : 6490 | 
07 11 00114 BRB > 644 
03 15 A 58 116 7$: BLBS 1(RSTPTR), 8S + 6496 | 
FF37 31 OO11A BRW $ : | 
43 08 AE 1c C1 0011D 8$ ADDL3 #28, IAFPTR, =(SP) : 6413. 
0 56 3 Fe 1 AOBLSS a(SP)+, I, 9$ ; | 
0 | 1 BRB 108 ; 
FEFD 31 001 98: BRW 4 : 
08 AE 08 BE 9 108 10$:  - MOVL aJAFPTR, IAFPTR > 6506 | 
FEE 1 BRW 1 > 6404. 
4 001 RET : 6512 | 
00 134 118:  .WORD Save nothing > 6368 | 
7E D4 001 CLRL 20 =< SP) ; 
5E bp 1 PUSHL SP : 
7E 04 aC D 0013A MOVa. 4(AP), (SP) ; 
FE7E CF 0 FB 13 CALLS #3, SHARED_IMAGE_NAMES_HANDLER ; 


3; Routine Size: 5324 bytes, Routine Base: DBGSCODE + 2E28 
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RSTCNTRL 16-Sep-1 :$3:41 - YAX-11 BLigs-32 v4.0-742 Page 206 
you+000 ae oets 7a TM RR Tn TA TLS oe 906 
ROUTINE STATIC_ADDRESS(STARTADDR, LENGTI:, RSTPTR, SAT_CHAIN, MERGE_FLAG): NOVALUE = 


FUNCTION: 

This routine constructs a Static Address Table (SAT) entry and inserts 
it in the proper place in a specified SAT chain. It accepts an address 
range 9s input and searches the spec fied Static Address Table chain 
until it_finds the proper place to insert an entry or the new address 
range. The insertion is always done so that the SAT chain remains sort- 
ed by start address. If the MERGE_FLAG parameter is set, SAT entries 
along the way whose address ranges overlap or adjoin the new address 
range are removed from the SAT chain and their address ranges merged 

with the new address range. 


This routine is called during RST initialization, when a SAT chain is 

built for each module in the DST. These SAT chains are then merged (not 
by this routine) to produce the Program Static Address Table which says 
in which modules a given address can be found. (An address may be found | 
in several modules--Fortran COMMON blocks cause this situation.) 


This routine is also called when the RST and SAT for an individual mod- 
ule is built. In this case, the SAT is of course still sorted by start 

address. However, if two SAT entries have the same start address they 

are always sorted so that the larger end address comes first. This 

ordering is required by routine DEGSSTA_SETCONTEXT which needs it to 
determine when there are nested routines which overlap the address range 

of an outer routine. The ordering ensures that a nested routine always 

follows an outer routine in the Module SAT. 


—_ — 2 
VEU 0 OONOUN SW OOOO 


LSS TISISSSISSS SSS II SII SSS 


o 


FETETE 
ws -—oO 


STARTADDR = The start address of the address range to be inserted in the 


ee ee ee ee ee ee ee ee ee eS SY 


i 
i INPUTS 
i 


ore specified Static Address Table Chain. If the Program Static 
644 Address Table is built from the Debug Module Table (DMT), 
6448 STARTADDR contains the address SATSSTART_ADDR, in which case 
ote? GET_MEM is called to get SAT space instead of DBGSGET_MEMORY. 
oe! LENGTH = The Length in bytes of the STARTADDR address range. | 
greg RSTPTR = The Run-Time Syabot Table (RST) pointer which specifies the 
6454 symbol to which this address range belongs. When the Program 
6455 Static Address Table (which gays which module covers whic 

ot 28 address range) is built, RSTPTR is zero. Then GET_MEM is 

$62 called to get SAT space instead of DBGSGET_MEMORY. 

roe SAT_CHAIN = The address of a longword Legation which gontaing a pointer 

6460 to the first entry on the Static Address Table chain being 

93 built. If the chain is empty, this location contains a zero. 

ores MERGE _FLAG - A flag which specifies whether SAT entries on the specified 

6464 chain should be merged if their address ranges adjoin or over- 

yor $4 lap. The flag can have these two values: 

gee? TRUE == Merge SAT entries with adjoining or 

64 overlapping address ranges 

yo4}4 FALSE == Do not merge such SAT entries. 

6471 OUTPUTS: 

6472 SAT_CHAIN = A new SAT entry is added to the SAT_CHAIN chain. Also, old 


~ 
oO 
z 
— 
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3 tT? 6571 1! entries co address ranges can be merged with the new one 

3 6476 6572 1! are removed from the chain if MERGE_FLAG is set. Either oper- 

; ohh ° t : ation can change the value at the SAT_CHAIN Location. 

3 gerF 6575 1! No value is returned by STATIC_ADDRESS. 

3 erie 6 6 +! 

3 64 6577 1 

3 64 6 4 BEGIN 
3; 6681 657 
3 64 ¢ 6580 MAP 
3 01 6581 RSTPTR: REF RSTSENTRY; ! Pointer to symbol's RST entry 

3 6485 ¢ ¢ LOCAL 
3; 646 6584 ADDR1, ! The start address of the input address 
: 64 6585 i range, possibly as expanded by 
3 64 65 ’ merging with existing SAT entries 
3; 6689 65 ADDR2, ! The end address of the input address 

; 6490 65 : range, possibly as expanded by 
3; 6491 6589 ' merging with existing SAT entries 
3; 649 6590 OLDPTR: REF SATSENTRY, ! Pointer to the SAT entry Just before 
3; 649 6591 : SATPTR entry in the SAT chain 
3: 6694 6295 SATPTR: REF SATSENTRY; ! Pointer to the current SAT entry in 
: 6495 659 ' the SAT chain. 
3 #4 6594 
3 649 6595 

3; 6698 0298 

3; 6499 659 ! Compute the start and end addresses of the address range passed by the 

3 £200 S208 : caller. Also initialize the Static Address Table list pointers. 

; 6206 6600 ADDR1 = .STARTADDR; 
; 650 6601 IF .LENGTH LEQ 0 
3; 6504 6606 THEN 
H $203 re mag OMe = .STARTADDR 
3 6307 Petit ADDR2 = .STARTADDR + .LENGTH - 1; 

; C606 | 
3; 6509 660 OLDPTR = .SAT_CHAIN; 
3 6510 6608 SATPTR = .OLDPTRCSATSL_FLINK); 

3; 6511 
; $316 oot? 
3; 651 661 ! Loop through the entire Static Address Table Linked List, looking to see 
3; 6514 o6i¢ ! where we should Link in an entey for this static address range or merge 
3 e212 rods it with existing SAT entries with overlapping address ranges. 
; £21$ ger WHILE .SATPTR NEQ 0 DO 

3 oats o618 BEGIN 

; 651 661 

; 6520 $618 
3 6521 661 ! If this SAT entry's address range comes before the ADDR! start address 

3 é3 § $6 ? ; we just Link on to the next SAT entry. 

3 65246 66 § IF .SATPTRCSATSL_END) + 1 LSSU .ADDR1 

3 6525 THEN 

3 65 $ 4 4 BEGIN 

3; 65 5 4 OLDPTR = .SATPTR: 

3 6528 66 z 4 SATPTR = .SATPTRESATSL_FLINK); 

3 6529 66 4 END 
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If this SAT entry's address r comes after the ADORE end address, 
! we have gone too far in the sorted SAT chain, so we exit the loop. 
$ 


! 

' 

‘ 

ELSE IF .ADDR2 * 1 LSSU .SATPTRCSATSL_START) 
EXITLOOP 


! The current SAT entry's address range overlaps or adjoins the ADDR1 - 
! ADDR2 address range. If merging of such onerese ranges is reqyested 

! we compute the expanded address range (including both ranges) in ADDR 
! and ADDR2 and delete the SAT entry from ane SAT chain. We then keep 
! searching the chain in case other SAT entries overlap the new range. 


1 

' 

' 

' 

' 

' | 
ELSE IF .MERGE_FLAG | 
THEN 


$.9-9-9-9-9-9-0-9-9-O-O- 


SRVFRFUNLS SEs 


ne 


wr —O0@ 


= -ADDR1, .SATPTRESATSL_START)); | 
ADDR2 = -ADDR2, .SATPTRESATSL-ENDJ); 
OLDBTRESATSL FLINK) = ,SATPTRCSATSL_FLINKI; 


DBGSREL_ WC SATPTRD 
SATPTR = .OLDPTRESATSL_FLINK); 


Bereureseaeneea reste 


PPEPEAEAA AAA A AAA AAA AAA AAA AA AAO 
w 


! The current SAT entry's address range overlaps the ADDR1 = ADDR2 

' address range, but yok ge address ranges is not allowed. Exit the 
' loop if the ADDR1 ster address is less than that in the SAT entry, 
' Also exit the seep f the ADDR1 start address equals that in the SAT 
} entry and the ADDR2 end address is greater than or equal to the SAT 
' 

' 

! 


MAMMA 


$5.35. 5-9-9 o 


| 

! entry's end address. Otherwise, Link to the next SAT entry. This 

! ensures that the SAT chain will remain sorted on start address with 

! the larger end address first if two start addresses are the same. | 
ELSE IF (.ADDR1 LSSU .SATPTRESATSL_START]) OR 

(.ADDR1 EQLU .SATPTRUESATSL_START] AND 

} 


pS eS StS Se 


Seegereees 


RIP IPIPIAPINIPIE BB NI BB BBE BBE PEPE PEEP EF PMMA AMNAMAMAAMMMANE BE EE 


POPOPAAAAAAAOAAAAAAAAAO 


THEN eADDR2 GEQU .SATPTRESATSL_END)) 
0 EXITLOOP 
71 066 
i 6670 ELSE 
2 967) BEGIN 
74 % OLDPTR = .SATPTR: 
75 667 SATPTR = .SATPTRESATSL_FLINK); 
HBR me 
7 7 END; ! End of WHILE Lt 
é ; 4} ie ) oop 
6581 i$ ! Build a new SAT entry containing the ADDR1 = ADDR2 address range and Link 
65 : : it into the SAT chain after the OLDPTR position. Then return. 
g § if (.RSTPTR EQL 0) OR (.SAT_CHAIN EQL SATSSTART_ADDR) 
° 5 29 THEN 


SATPTR = GET_MEM(SATSK_ENTSIZE) 


7 
ib-sep-1964 02:55:41 yayett BLigs-B2 v4.57 


eaycarae 


ELSE 
SATPTR = DBGSGET_MEMORY(SATSK_ENTSIZE); 


LATBIR SATSL PLN) = MEL DPTACSATSL_FLINK); 
STARTJ =, 1; 


ATPTRESATSL_START ADOR 
SATPTR SATSL EN} = .ADDRe; 
SATPTRISATSL_RSTPTR] = .RSTPTR; 


OLDPTRESATSL_FLINK] = .SATPTR; 


Seeeareee 


PEAEAOAAAAAAAAS 


; $69 ! If RSTPTR points to a Routine RST Entry, put a pointer in that RST entry 
3 e609 66 ! to the SAT entry we ust built. This pointer is later used by routine 
3 228 $8 : 08G STA. SETCONTEXT to find a routine’s SAT entry. 
; pees 67 IF .RSTPTR NEQ 0 
+ rn ee 
: 6606 o? : IF .RSTPTRCRST$SB_KIND] EQL RSTSK_ROUTINE 
3 $608 7 RSTPTRCRSTSL_RTINSATPTR] = .SATPTR; 
: 6610 67 END; 
3 661 67 
3 661¢ 6710 RETURN; 
3 661 671 
3 6614 6712 END; 
007C 00000 STATIC_ADDRESS: 
-WORD Save R2,R3,R4,R5,R6 
53 6 ac D MOVL § STARTADOR, ADOR1 
8B AC p TSTL NGTH 
06 14 BGTR 
52 04 AC 9 MOVE TARTADDR, ADDR2 
50 04 as 08 OA ADDL3 LENGTH, STARTADDR, RO 
fF OA MOVAB =1(RO) 2 
4 10 A MOVL §SAT_CHAIN, OLDPTR 
4 p movL (OLBPTR), SATPTR 
50 08 A ‘ C ADDL3 #1, B(SATPTR), RO 
53 0 p| CMPL RO, ADDRI 
4a iF BLSSU 
50 01 «OA 4 v (R2), RO 
06 Ab 5 p CMPL = RO, 4CSATPTR) 
48 if BLSSU 
43 “ao ae BLBC MERGE_FLAG, 7$ 
ry MOVL ADDR 
06 Ab p CMPL «=O, 4 ¢SATPTR) 
"4 BLEQ 
39 06 Ad OD MOVL  $4(SATPTR), RO 
50 D MOVL RO, ADDR1 


rbeseontone 03:54) pane ating te v4. 0-742, Page 330 


; Routine Size: 203 bytes, Routine Base: DBGSCODE + 2F6C 


5 ' MOVL ADOR : 8 
08 § b I CAP a. Sisaterey Saree 
‘ é i 
5 08 As 00 OC MOVL  &(SATPTR), RO ; | 
50 00 00059 6s MOVL ADDR : | 
dO O% MOVL  (SATPTR), (OLDPTR) 3 6649 
4 00 O PUSH A + 6650. 
000000006 00 f I CALL al. DBGSREL_MEMORY Paaal 
06 Ab © pI bA 7S: CMPL ADDR1, 4(SATPTR) + 6664 | 
o 12 i Buea” 8S 6665. 
08 AG if 0¢ CMPL  ADDR2, 8(SATPTR) + 6666 | 
1E 00076 BGEQU 9S : 
56 4 00 00078 88: MOVL § SATPTR, OLDPTR t 6672 | 
rs 64 ti. movL ATPTR), SATPTR : $67 | 
55 0c AC 09 0¢ 98: mov RSTPTR, RS : 6682 | 
ue . 
50 00000000" EF oF 0 MOVAB SATSSTART_ADDR, RO : | 
10 Ac D CMPL  SAT_CHAIN; RO : 
9 12 BNEG ~=:«wW¥38 ; 
5 DD 00093 10$: PUSHL 45 + 6684. 
ALLS @ r ; 
F89D—sCCF 1 f 9 CAL § 36 GET_MEM 
5 DD 0009C 118 PUSHL @# > 6687 
000000006 00 1 FB 00 CALLS #1, DBGSGET_MEMORY : | 
4 0 p AS 12$:  MOVL RO, SATPTR : 
BEQL. si > 6689 | 
64 D MOVL (OLDPTR), (SATPTR) + 6690 
AG D MOVL ADDR1, 4(SATPTR) + 6691 
8 Ab D MOVL DR2, 8(SATPTR) > 669 
C Ab D MOVL R5, 12(SATPTR) > 669 
4 0 MOVL SATPTR, (OLDPTR) : 669% 
5 p STL «OR : 6701 
OA BEQL 13S ; 
02 14 aS ? CPE (RS), #2 + 6704 
20 «AS 4 06 MOVL SATPTR, 32(R5) : 6706 
4 QOOCA 13%: RET : 671 | 
| 
| 
| 
| 
| 
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; at } ROUTINE STATIC _CHECK(DSTPTR, ADDRESS, LENGTH, STATIC_FLAG): NOVALUE = 

; 15 i FUNCTION 

; at) ! : This routine det rspert inte @ ogc tied data item is static or no 

; a ee This is done oone Sr object Piten' s DST entry; che gete ¢ Bject. is 
. : eemed to be static fhe ob ect! cH —“ address is specified PY cocsty 
: HEY FRSEE SEU 1 Wl ha ee ae a art 
. t+] n = 
: : ; : + disgual i? es the data store, from being deemed static. peel ee rae: 
; 723 1: If the data item is static, STATIC_FLAG is set to TRUE and the it 

Tee 1} ftartveddress ng byte Lengeh, e raturned’ co thes caller. 11 the ages 
° . n a a 
: o9 4 $ } : STATIC_FLAG is set to FALSE and 7 cate 2 else Fg 5, tow ser Be yey 
3 66 67 8 1} INPUTS 

; 2 of 1 DSTPTR = A pointer to the Sots Symbol Table (DST) entry of the data 

3: $7 : : : item in question 

3; 66 6732 1: ADDRESS = The address of a longword locati h h 

; $8 4 § : : static area is to be returacd. orem ce loappesteacnebes® g 

; 66 6735 1: LENGTH = The address of a longword locati h h h 

: 2272 4 ' : static area is to be roumrana, a ene See ee ee 

3 6641 6738 1: STATIC_FLAG = The address of a longword location where a flag should 

; oo0¢ 6739 : : be returned saying vhether the data item is otetie or oh 

5 6664 6741 1 ! OUTPUTS 

; a2 ores 1 : ADDRESS - If the data item is static, the start address of its static 

: S6t8 ort? } : address range is returned to ADDRESS. 

; 6648 6745 1! LENGTH = If the data item is static, the length i i 

: £650 ores ; ; address range is returned to LEN NGTHe es cone Ey | tems: 
; 6651 6748 1! STATIC_FLAG = If the data item is static, STATIC_FLAG i TR 

: $636 tS : : otherwise STATIC_FLAG is set to FALSE.” a 

: 6654 erat Be 

: $833 i BEGIN 

: 66 6754 ENABLE 

3 e638 67 é STATIC_CHECK_HANDLER; 

; peat 67 

3; 6661 er8 DSTPTR: REF DSTSRECORD, ' Pointer to data item's DST d 

: rors] 6759 ADDRESS: REF vECTORE TO. : Lecetien 5 where t me etatis oneek 

3 ! S re r 

i 6664 6761 LENGTH: REF VECTORC1), i Location wh where the length of the 

3 ‘ ares. Le r 

; eee ores STATIC_FLAG: REF VECTORC1); ; Leeten wh where eis che if the 
: ess the: ! data item a I Ms ps FALSE 
; 666 e766 BIND 

3; 6670 676 LENGTH_TBL = UPLIT BvTECO at ," 2.4,8, 1 2, 6-8 

: G67! 6768 11 OF <0), 16.4 cB 16r16. fe," 

: 676 8,8,0,0,0 0.6), VECTORE ,BvTE 


<2 


? 
RSTONTRE 18-50 “1 $3:41 -VAX=11 BLigs-32 v4.0-762 p 
the tt 1 Ht 95:33:31 DEBUG. SRCIRSTCNTRL.8632;2 age ¢ 
ZIF _DSCSK_DTYPE_HIGHEST GTR 37 H If the LENGTH_TBL PLIT is too small, 


ZTHEN ; generate a cone le-time error 
ee rere Must expand PLIT in Routine STATIC_CHECK’) 


LOCAL 
BPTR1: REF DSTSBLI_TRAILER1, 
BPTR2: REF DSTSBLI_TRAILER2, 
DESCPTR: REF BLOCKC,BYTE); 


ccr 


Pointer to the Bliss epee fat cases DST 
record first trailer 

Pointer to the Bliss special cases DST 
record second trailer 

Pointer to VAX Standard Descriptor in 
the DST record 


H Assume everything is not static to begin with. 
STATIC_FLAGCO) = FALSE; 


! If this is a BLISS special cases DST record, return its start address and 
! Length if the BLISS data item is static. 


SNS SSNS 


SSSSSSS ARES Ia NIS 


SesSeeSgeSeeseeenigssts 
“ 
3 RAINS z 
AFPAAAAAAAAAAAAAAAAPAA AAAS AAA AAS 


° ' 

+ 669 i 

3; 66 791 ! 

3 6695 a If .DSTPTRCDSTSB_TYPE) EQL DSTSK_BLI 

3 i] 79 THEN 

3; 669 794 BEGIN 

3; 6698 795 STATIC_FLAGCO) = FALSE; 

3 796 IF .DSTPTRLDSTS$B BLIVFLAGS) NEQ DSTS$K VALKIND ADDR THEN RETURN; 

3; 6700 79 BPTR1 = pSTPracDsr ett TRLR1) + .OSTPTR DSTS6_BLI_LNG); 

3; 6701 738 ADDRESS(O) = ,BPTRICBSTSC 1 VALUE); 

3; 67 : BPTR2 = gprritpst BL TRLR2J + .BPTRICDSTSB_BLI_NAME); 

3; 67 6800 LENGTHCO) = .BPTR2CBST$C_BLI SIZE); 

3 6801 IF .DSTPTRE sTSV.6L1 REF] THEN LENGTHLO) = 4; 

3 6705 6808 STATIC_FLAGCO] =" TRUE; 

; 4 680 RETURN; 

> 6708 sss ‘ 

; 6709 

3; 6710 ret ! If this is a boolean (as in PASCAL) and it is static, we mark it as static 

3; 6711 6808 ! and return its address and a length of 1 byte. We determine whether it is 

3 orig rests : static by checking the Value-Flags field. 

3 67146 11 IF (.DSTPTRCDSTS$B_TYPE) get DSTS$K_BOOL) AND 

3 . “VFL L K_VALKIND_ 
erg 6 : cues DSTPTRCDST$B_VFLAGS) EQL DSTSK_VALKIND_ADDR) 

: 671 14 BEGIN 

; ors 15 appr Sete) = ,DSTPTRCDSTSL_VALUE); 

3; 671 18 LENGTH s 1: 

; 67 9 1 STATIC_FLAGLO) = TRUE; 

3 67 : 13 RETURN; 

: 67 9 : 

3 6724 

3 6725 5 ! If this is a record begin record. or if the item is specified by the 

3 67 $ : DSTSK_SEPTYP record, and it is static, then we mark it as static and 

3; 67 4 ' return its address. However, we do not know its length (at least not 

3 ' re y). so we return a length of zero. In effect, we treat the 
6728 5 ‘ dily) Length of In effect treat th 

3; 6729 6 ! object as a label. 
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' 
if (.DSTPTREDSTSB 
({DSTPTREDST 


$B_1YPE] FOL DSTSE SEPTYP) AND 
$B"VFLAGS) £0 
THEN 


L DSTSK_VALKIND_ADDR) 


LOCA 
TYPEPTR, TYPESPEC; 


ADDR 1 : paegrerRcosTsL VALUE); 

th sgrrve YP(.OSTPTR, TYPEPTR, TYPESPEC); 
LENG renett yy +7) / 8; 

STATIC 03 = fs = TRUE; 

RETURN? 

END; 


IF (.DSTPTRCDST$B_TYPE) got DSTSK_RECBEG) AND 
_ gf DSTPIR DSTSB_VFLAGS) EQL DSTSK_VALKIND_ADDR) 


orien 
RECBEG_TRLR: REF DSTSRECBEG_TRLR; 
ADDRESS(O) = ge tiatat ob va 


RECBEG TRLR : DSTPTR $6 °NA + .DSTPTRCDST$B_NAME); 
LENGTHEO] 2 RECBEG. TRL Beitr "RECBEG. $170) +7) / 8: 
Stat C. Peagtoa 


IF (.DSTPTRCDSTSB_TYPE) get DSTSK_ENUMBEG) A 
THEN -DSTPTRCDSTSB_VFLAGS) EQL DSTSK_VALKIND MADR) 


ADDRESSCO] = 2 -DSTPTR DSTS$L_VALUE); 
ENGTH DSTPTREDSTSB “ENUMBEG_LENG) + 7) / 8; 
STATIC C FLAGLOS = TRUE; 


: If the DST record is a 
: point, just return wit FLAG set to FALSE. 


nythin 
¥ STAT 
it ' -DSTPTRCDSTSB_TYPE] LSS DSCSK_DTYPE_LOWEST) OR 
g( DSTPTR DSTSB-TYPE] GTR DSCSK-DTYPE_HWIGHEST) 


eNBEGIN 
STATIC_FLAGLO) = FALSE; 
RETURN? 


! We have a VAX Standard data item. If this is a static scolar 
i start eddress and length and return with STATIC.F LAG set to TR 


if ,DSTPTRCDSTSB_VFLAGS) EQL DSTSK_VALKIND_ADOR 
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iO 
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PAAAPAAAAAAO 
$3352 


Seeeesesss 


So 90 Go G9 Ge Go Go Ge Go Go Oo oo 


MMNIN 23 ee oes 
UN —“OOOnNOuUS wo 


Soo 


10 08 08 04 08 04 02 01 08 04 02 01 01 00 OO01E0 P.AAZ: .BYTE ae 4, 8. 1, 2, 4, 8. 4. 8 8, 16 
Oe OOlEE “BYTE i hy 
00 00 00 00 08 0&2 OC 20 10 10 08 10 1F “BYTE 6, 8. 16, 16, 32, 12, 8 8. 0. 0. 0, = 
LENGTH_TBL= P.AAZ 


Rs 
HE$eect98s QBefE:S2  WABGLES4sec¥esth: 5082, 


5 it S$SCOJ = .DSTPTRCDSTSL_VALUE); 
LENG GS5f00, ENGTH TBLL DSYPTR Foétse_ type); 
st ATIC FLAGLO) = TROE; 
ss 
6 a 
i 
6 36 ! If this data item DST record contains a VAX Standard Descriptor. we can 
9 i assume it to be static and we pick up ‘ts address and length from the 
? 9¢ ; embedded descriptor. 
6 38 if -DSTPTRCDSTSB_VFLAGS) EQL DSTSK_VFLAGS_DSC 
689 THEN 
6 4 BEGIN 
3 
pot } Get the start address and data item length from the descriptor. 
690 DEscPrR = DSTPTRCDSTSA_DSC BASE) ER DSTPTRCDSTSL_DSC_OFFS); 
6904 ADOR j= DESCRTREDS CSR. POINT 
6905 ‘ENGIN = = DBGSG raed S126. FROM. vpesec. DESCPTR); 
44 LENGTH CO CENGTA }+ 73 / 
o's Set the static flag to TRUE and return. 
6910 STATIC_FLAGLOJ = TRUE; 
6911 RETURN; 
691 END; 
691 
6914 
oot? : If we have come here, the data item is not static. Return saying so. 
691 STATIC_FLAGLO) = FALSE; 
4 RETURN; 


6920 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001C 00000 STATIC_CHECK: 
7 Re. R3,R4 
13§ 


5E 08 C2 2 SUBL 
6p 0106 CF D MOVAL 
4 1 AC D A MOVL Statice FLAG, R4 


Page gy 


<z 


; 


2 
18-56 -1 2:53:41 Ax-11 Bliss-32 v4.0-742 Page 215 
12-808-198e 95:93 :5) DEBUG. SRCIR RSTCNTRL.B32;2 . 4 
64 04 CLRL (RG) ; 
53 04 aC pd %f ROVE DSTPTR, R2 + 6792. 
1 8e 33 Soors ss et * crt Aa : 
64 ps 1A CLAL (R4) t 6795 
01 04 Ag } 1 CMPB 20 s«4(R2), #1 + 6796. 
0 13 BEQL 1$ : 
$0 03 A oh 1$: MOVZBL g(R2) R : 6797 | 
A0se 9F MOVAB = 3(R dERe BPTRI : | 
08 BC 6 MOVL  (BPTRI) SADDRESS ; 6798 | 
1 = 2 aA MOVZBL 4(BPTRIS : 6799 | 
0 5 Al MOVAB CRI) CBP tri , BPTR2 : 
0c BC 6 p 9 MOVL §§ (BPTR2), @LENGTH + 6800. 
05 Az ; 90$p ts 3(R2) ; 6801 
oc «BC 04 D S04 MOVL #4, @LENGTH : 
13 11 0004 BRB 3$ + 680 
9— BF 3 9 0 48 2$: CMB RS. #158 : 681 
01 02 M2 1 0 H CMP 2(R2), " . 5 681 
08 BC 03 AS 8 005 MOVL  3(R2), @ADDRESS : 681 
0c BC 01 00 00059 MOVL #1, @LENGTH : 681 
0089 31 0050 3$: BRW 11$ : 681 
A3.—soSF 91 0060 4$: CMP RS. #163 ; 6828 
01 02 As 91 9066 cMPB g(R2). #1 : 6829 
08 Bc 03 8 8 006C MOVL §§ 3(R2), @ADDRESS + 6835 | 
SE 0D 00071 PUSHL §P : 6836) 
8 oF Bre Fue gurerm ag 
000000006 00 0088 Fe 0078 CALLS a, DBGSF IND_SEPTYP 
51 01 "A? 9h 000K 58: ROVZBL RQ), RI 3 6843 | 
ABO 51 91 00086 CMPBCéRT, an | 
01 o2 Ad 9% ooone ones OStr2). + 6846 | 
14 1 8096 BNEQ 5 F 
08 BC 03 A 06 009¢ MOVL $¢R39, BADDRESS > 6850 | 
56 7 Ad 9A 909 MOVZBL 7(R > 6851 
0 08 A04 9 8 MOV B(R ral RECBEG_TRLR ; 
60 9) one ADDL We (RECBEG_TRLR)> R ; 6852 | 
AS BF 31 91 anh 68: CMPB RI. #165 : 6857 | 
01 02 A2 i 8 at CHPB g(R2), : 6858 
(R2), @ADDR > 6861 
oy ghee Bh tes oes a 
6 C9 BB ADDL a7, ng" ; 
BC DIVLS #8. RO, @LENGTH ; 
64 1 D C MOVL #1. (R4) > 6863 | 
A a fae! 
25 51 9 CA CMPB Af? 93 #37 + 6871 


a3 | 


ee ——__——_——E—EE EEE  ————e 


i 
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45 1A 000CD BGTRU (i F 
01 02 A ? $3 CMPB (R2), 3 6882 
8 BC .* 2 D MOV it? @ADDR + 6885. 
VZBL N A_TBLER LENGTH + 6886 | 
C BC 00000000 "Erg oA p novi GTH.TB ave i @LENGT 688 
FA BF 02 A j €5 8$: CMPB , #250 + 6896. 
28 1 EA BNEQ $32? : | 
52 3 A § EC ADDL2 (R2), Re + 6903. 
A 5 F MOVAB 7(R2). DESCP ; 
08 aC 4 ad 0 F4 VL 4(DESEPTR), SADORESS + 6904. 
DD 000F9 PUSHL SCPTR + 6905. 
000000006 90 1 i OF pa CALLS “i,  DBCSGET BITSIZE_FROM_DESC : | 
50 OC 8 $ C1 001 ADDL3 #7. @ ENGTH. RO + 6906 | 
oc «BC 0 8 C7 0010B 10$ DIVL ; RO, @LENGTH F 
1 pO 00110 11$ MOVL #1, (RE + 6910 
04 0011 RET > 6898 | 
64 D4 00114 128: CLRL (R4) : 6917) 
04 0116 RET + 6920 
0000 00117 138: WORD Save nothing + 6752 | 
7E 04 00119 CLRL 0s = ( SP) : | 
SE DD 0118 PUSHL SP : 
7E 04 AC D 0011D mova  4(AP) : 
0000v CF 03 FB oigi CALLS #3, ftatie. P CHECK _HANDLER ; 
04 00126 RET : 


; Routine Size: 295 bytes, Routine Base: DBGSCODE + 3037 


0000 00000 STATIC_CHECK HANDLER: | 
-WORB Save nothing : ; 6921 


8 
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you+000 1 ~3007 138% 95:73:55 DEBUG. SRCIRSTCNTRi 83252 9 $3) 
; : 69 } ROUTINE STATIC _CHECK_HANDLER(SIGARG, MECHARG, ENBLARG) = : 
; 6923 1 | FUNCTION ; 
; 8 69246 1! This routine is to catch the signals for Te tee routine. : 
: 23 5 ; : So the STATIC_CHECK will not treat the object to be static. : 
> 6831 6 oti INPUTS : 
: § 2444 } } SIGARG = The signal argument vector. : 
3 ¢ 4 ° } MECHARG = The mechanism argument vector. ; 
3 e } ENBLARG = Tie enable argument vector. (not used) ; 
; 6934 1 | OUTPUTS ; 
3 6935 1! None. F 
3 0 69 1! 3 
; 1 6937 1 ; 
| ; 6938 BEGIN F 
3 6939 3 
3; 6844 6940 MAP F 
; 6845 6961 SIGARG: REF VECTORL,LONG); : 
gece 694 IF .SIGARGC1] EQL DBG$_ACCADDCOM OR | ; 
3 6848 6944 ~SIGARGC1) EQL DBGS_DESCNOTSET OR | 3 
3 6849 6945 -SIGARGC1) EQL DBGS-SYMNOTACT O : 
3 6850 694 ~SIGARGL1] EQL DBGS-NOACCESSR : 
3 6851 694 THEN ; 
3 6854 6948 BEGIN 3 
3 685 6949 SETUNWIND(); F 
3 6854 6950 RETURN 0; 3 
3; 6855 6951 3 F 
; os28 695 3 
; 685 695 RETURN SS$_RESIGNAL; 3 
3; 6858 6954 END; : 
50 4 A v0 9002 MOVL  SIGARG, > 6943 | ; 
00028(98 8F 4 . ° 006 aa aqh0). #167064 3 Fy 
00028F50 =F 04 Ad 0 if cHPL 4(R0), #167760 > 6944. 
00028¢88 = 8F 04 a0 p 1A cAPL 4(R0), #167048 ; 6945, 
00028228 =F 06 A0 0 é cnPL (RO), #164392 ; 6946, 
9 7C 1$ CLRQ 0 = (SP) > 6949 | 

000000006 00 FB CALLS a. SYSSUNWIND 5 ann 
50 0918 + «8F i 9 28: MOVZWL #2328, RO : 6953 | 
50 b4 F 38: CLRL —s_ RO > 6954 
4 00041 RET ; 
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3; Routine Size: 66 bytes, Routine Base: DBGSCODE + 315€ 


; 6859 6955 1 


HESe0c198E QB:fE:S) YAGI Suvgactayne 05782, 
ROUTINE TEST_DST_SIZE(FILENAME, IMG_DST_BLOCK) = 


! FUNCTION 
: This routine is used only if Se is a Testable Debugger. It scans the 
bebus svanes Table (DST) to f where the User Program DST ends. This 
ae Sone done to exclude the Debugger’s own DST from the DST mapped into the 
virtual ogerese space. Ther coe ne ~~ 7 the o (usin ng RMS 1/0 so 
that no v rte) sigerese Space s used up) looki "9 for the Module-Begin 
record for DBGSTART. If this record is found, that location is returned 
as the DST end focabtens otherwise the actual end of the DST is returned 
as the end location. 


FILENAME = The address of a Counted ASCII string containing the file- 
name of the executable image file. 


IMG_DST_BLOCK = A pointer to the image header DST/GST descriptor. This 
is assumed to already be in memory. 


i OUTPUTS 
4 The number of bytes in the DST before the end of the DST or before the 


' 
' 
' 
' 
' 
' 
' 
' 
' 
i 
; INPUTS 
i 
' 
' 
' 
' 
i] 
‘ 
Module-Begin record for DBGSTART is returned as the value. 


name in Counted A 


84 
6985 IMG_DST_BLOCK: REF IHSSENTRY; Pointer to the saage header symbol 
3 table descriptor 
e443 LITERAL 
69 BLKCOUNT = 10, ' Number of file blocks/buffer ‘‘block’’ 
ony BUFSIZE = (BLKCOUNT + 1)*#512; ! Size of the DST record buffer 
699 
699 DSTFAB: SFAB(FAC=<BI0,GET>), ' DST File Access Block (FAB) 
6 DSTRAB: $RAB(ROP=B10); ! DST Record Access Block (RAB) 


Block number within the image file--a 
“block’’ is BLKCOUNT*51 “bytes 

Byte number within current ‘bloc 

Number of current ‘‘block’’ in XBUFFER 

Current byte address in the A rela- 
tive to the start of t 

Byte address of the end . he DST 

Pointer to the current 2 record 

Status code returned by RMS 

DST file buffer 


CURBLK 
DSTADDR, 


DSTENDADD 
DSTPTR: Ree DSTSRECORD, 


ST 
XBUFFER: VECTORCBUF SIZE BYTE); 


Set up the FAB and the RAB for Going, Stock 1/0 to read the executable 


' 
: image file. Then open and connect the executable image file. 
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69 BEGIN 
oe 
$388 FILENAME: REF VECTORC,BYTE), ' Pointer to the Suscutenig “eee file- 
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Seems g 03:48:41 


AX-11 Bliss-32 V4.0-74 
DEBUG. RCTASTENYRE BSoe2 


DSTFABCFABSL_FNA) = FALENAMECI} 
DSTEABEFABSB_ENS) = FILENAME 4; 
DSTRABLRABSL_FAB) = DSTFAB; 
DSTRABLRABSL UBF) = XBUFFER; 

STATUS = SOPEN(FAB=DSTFAB) ; 

IF NOT .STATUS THEN SIGNAL(.STATUS); 
STATUS = SCONNECT(RAB=DSTRAB); 

IF NOT .STATUS THEN SIGNAL(.STATUS); 


Now loop over the were pebus 5 ye gy | (DST) to rine where the user 
pr comes DST ends. This ther at the true end of the DST or at the 
tart of the Module=Begin DST record or DBGSTART. 


BLK = -1; 

ADDR = 0; 

ENDADDR = 512*.IMG_DST_BLOCKCIHSS$W_DSTBLKS) = 1; 
E TRUE 00 


! Find the ‘block’ number and the byte ypiee: within the block repre- 
i sented by the current DST address. If "“pblock’’ of the file is 
not now in the buffer, read it into the owe Pig 


BLKNUM = .DSTADDR/(BLKCOUNT®*512); 
BYTNUM = .DSTADDR MOD (BLKCOUNT®512); 
IF SLKNUA NEQ .CURBLK 


BEGIN 
DSTRABCRABSL_BKT = ,BLENUM*BLKCOUNT + .IMG_DST_BLOCKCIHSSL_DSTVBN); 
DSTRABLRABSW_USZ] = MIN(BUF 
* “DSTENDADDR + 1 = .BLKNUM*BLKCOUNT®512); 
STATUS = SREAD(RABs DSTRAB); 
IF NOT .STATUS THEN SIGNAL(.STATUS); 
CURBLK = .BLKNUM; 


DSTPTR = XBUFFERC .BYTNUM); 


! Determine whether we have reached the end of the DST. If we have, 


return the current DST size in bytes to the caller. 
if ¢. DSTADOR oF eu pero sone) OR 
(.DSTPTR 


D DST $8 _LENGT ) OR 
(. DSTPTR DST$B “tYPEIE st8k K MODBEG AND 
UPLIT BY TEREASTICe BGSTART') 
O STATREDS TSB _MODBEG_NAME) + 1, DSTPTRCDSTSB_MODBEG_NAME], 0)) 


THEN 
RETURN .DSTADDR; 


: We are not yet at the end of the DST. Go to the next record and loop. 
DSTADDR = ,DSTADDR *¢ 1 + .OSTPTRCDSTSB_LENGTH); 
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: } 
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: We should never get here. 
RETURN 0; 
END; 


Se Ge Ge Ge Ge Gee 
DOLLS 

~~ 

Ps une 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
54 52 41 54 53 47 42 44 08 00206 P.ABA: .ASCII <8>\DBGSTART\ 3 
-PSECT DBGSOWN,NOEXE, PIC,2 
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AX-11 Bliss-32 V4.0-74 
DEBUG. SRCIRSTENTRL Booe2 


= 


Pe 
Se i i Di i Di i De Re Re Be ee sR Be De 


SABISAASASFRSVMAS = 
*eee#eeee,e#ee 
S222sss-s2 
>)  Jvommno 


SYSSOPEN, SYSSCONNECT 
sEXTRN SYSSREAD 


DBGSCODE,.NOWRT, SHR, PIC,0 


WOR Say $.° 2,R3, Rs. RS,R6,R7,RB,RI,R10,R11 
9 ROVAB 632( $55. 
ADDLS = #1 PIeENAME, DSTFAB+44 
MOVE FILENAME, DSTFAB+S 
i MOVAB DSTFAB, DSTRAB+6 
if MOVAB XBUFFER, DSTRAB+36 
F PUSHAB DSTFAB 
F CALLS #1, SYSSOPEN 
D MOVL RO. STATUS 
E BLBS STATUS, 1$ 
DD PUSHL STATU 
FB CALLS #1, LIBSSIGNAL 
OF 1 PUSHAB fRAB 
FB O CALLS i. SYSSCONNECT 
D vY MOVL STAT 
E8 ¢ BLBS no: 0 
DO PUSHL STATUS 
FB CALLS . LIBSSIGNAL 
cE MNEGL CURBLK 
CLAL a; tun DOR 
0 MOVL AG, ™ a R9 
4 I MOV ZWL 
% v ais DSTENDADDR 
( as 120, DSTADDR BLKNUN 
A ps TADDR, 56. (SP 
a512 (SPDs é. SiTWUA, BYTNUM 
p apa 
; {Rosh 
¢ (R iF nd. MU eka eS6 
¢ #3126 iKNUM, RO 
C DETENDADDA, RO 


Pane $55 


42 


Istecays :AHSSL WSU AuiNacENtRsEs2s HF 


NCL ORR : 
p cn i #5632 ; 7046 
1600 BF MOVZWL #5632, RO F 
0 48: VW RO, DSTRAB+32 : 
00000000" EF 9F PUSHAB DSfR : 7046 
1 F CALLS #1, SYSS$READ : 
0 »D MOV R STATUS : 
AE BLB STATUS, + 7067 
A DD PUSH TATUS : 
1 F CALLS #1, LIBSSIGNAL : 
4 58: MOVL BL KNUM CURBLK : 7048 
5 C és: ADDL3 SP, BYTNUM, DSTPTR : 7051. 
bi CMPL sfanoR. DSTENDADDR + 7057) 
1 BGE OU : | 
9 TST DSTPTR) : 7058 
1A 1 BEQL ; 
01 9 CMPB 3s CDSS TPTR), #188 : 7059 
& BNEQ : 
07 $8 A ROVZBL (DSTPTR), RO ; 7061, 
- 69 S CMPCS , P.ABA, #0, RO, 7(DSTPTR) : | 
04 12 BNEQ 8S ; 
7 0 7$: MOVL DSTADDR, RO + 7063. 
66 Sh 8$: MOVZBL (DSTPTR), RO : 7068) 
01 A04 H MOVAB  1(RO)CDSTADDRI, DSTADDR ; | 
FF61 BRW 3$ : 7030. 
3; Routine Size: 278 bytes, Routine Base: DBGSCODE + 31A0 | 
3; 69 7077 1 
: 698 7078 0 END ELUDOM | 
LEXTRN LIBSSIGNAL, SYSSUNWIND | 
; PSECT SUMMARY | 
3 Bytes Attributes 
; NOVEC, WRT, RD ,NOEXE.NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
; 20 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(O) 
; NOVEC.NOWRT, RD. EXE, SHR, LCL, REL, CON, PIC.ALIGN(O) 
; 12982 NOVEC.NOWRT, RD. EXE. SHR. LCL. REL. CON. PIC.ALIGN(O) 


Library Statistics 


yabols Pages 
Total Loaded Percent Mapped 
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Ear, “tt 


_$255$DUA28: (DEBUG.08/]DBGMSG.L32;1 $8 233 a 3} $3 :00:8 


3; Information: 49 
3; Warnings: 
; €rrors: 


; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:RSTCNTRL/OBJ=OBJS:RSTCNTRL MSRC$:RSTCNTRL/UPDATE=(ENHS:RSTCNTRL) 


3; Size: 129 g. g¢ + 20939 data bytes 
Paley is 

; ete ty Rin: iy 

; Lexemes/CPU-Min: 14 


Memor cy Ue Used: 962 p 
; Compilation Denplete’” 
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